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DAS ROM-LISTING IST EIN VOLLSTAENDIGES DISASSEMBLIERTES UND 
KOMMENTIERTES LISTING DES BASIC-INTERPRETERS. 

ZUM LEICHTEREN VERSTAENDIS SEIEN HIER EIN PAAR VEREINBARUNGEN 
GETROFFEN: 

ZAHLEN IM KOMMENTAR SIND, WENN SIE NICHT VON EINEM 'D' GEFOLGT 
WERDEN, HEXADEZIMAL. EINE AUSNAHME BILDEN FLIESSKOMMAKONSTANTEN DIE 
IMMER DEZIMAL ANGEGEBEN SIND 

DAS NUMERUSZEICHEN (*t) IST ALS § - ZEICHEN DARGESTELLT. 

MIT X IST BEI DER ARITHMETIK DAS IM RAM-LISTING ERLAEUTERTE REGISTER 
FUER WERTE JEDEN TYPS GEMEINT. 

MIT Y SIND BEI ARITHMETIK EINFACHER GENAUIGKEIT DIE REGISTER B,C,D,E 
(B=EXP, C=MSB, DE=LSB) UND SONST DAS IM RAM-LISTING ERLAEUTERTE 
REGISTER GEMEINT. 

WENN VON EINEM REGISTER ODER EINER ANDEREN GROESSE EIN BESTIMMTES 
BIT GEMEINT IST, SO IST DIES DURCH EINE ANGEHAENGTE ZIFFER 
GEKENNZEICHNET. 

FLIESSKOMMAWERTE WERDEN VOM BASIC IMMER IN FOLGENDER FORM 
ABGESPEICHERT: 

ZAHL=MANTISSE * 2 **EXP MIT 0.5 <= MANTISSE < 1 

DIE MANTISSE IST 24 BIT LANG, WOBEI DAS ERSTE BIT NICHT MIT 

ABGESPEICHERT WIRD,DA ES IMMER EINS IST. 

AN SEINE STELLE WIRD DAS VORZEICHEN DER MANTISSE GESETZT. 

DER EXPONENT WIRD IMMER MIT EINEM OFFSET VON 80 ABGESPEICHERT, DER 
IM KOMMENTAR ENTFERNT WURDE. 


BEISPIELE: 0.5 

= 0.5 

* 

2 

** 

0 —> 

EXP = 80 

M = 00 

00 

00 

-4 

= -0.5 

* 

2 

*-* 

3 —> 

EXP = 83 

M = 80 

00 

00 

-0.25 

= -0.5 

* 

2 

**- 

-1 —> 

EXP = 7F 

M = 80 

00 

00 


BEI DEN MIT UP GEKENNZEICHNETEN UNTERPROGRAMMEN, IST IN DER KLAMMER 
ANGEGEBEN, WELCHE REGISTER VERAENDERT WERDEN. 

IST EIN SPEZIELLER WERT GENANNT, SO ERHAELT DAS REGISTER NACH JEDEM 
UP-AUFRUF DIESEN WERT. 

HL = P BEDEUTET, DASS DAS HL-REGISTER ALS POINTER AUF DEN 
PROGRAMMTEXT DIENT, DER BEI FORTSCHREITENDER PROGRAMMAUSFUEHRUNG 
ENTSPRECHEND NACHGESTELLT WIRD. 

UNTER I BZW. 0 SIND DIE PARAMETER AUFGELISTET, DIE AN DAS 
UNTERPROGRAMM UEBERGEEBN WERDEN MUESSEN BZW. DIE ES BEIM RUECKSPRUNG 
UEBERGIBT. 
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RESET-ADRESSE: SYSTEMINITIALISIERUNG 
OOOO F3 DI ;INTERRUPT SPERREN 

0001 AE XOR A ;A=0 (ZUM ZURUECKSETZEN VON PORT PF) 

0002 C3 74 06 JP 0674 ;WEITER BEI 0674 

0005 C3 00 40 JP 4000 ;SPRUNG UEBER RAM-VEKTOR 4000 NACH 1C96 

RST 08 

0008 C3 00 40 JP 4000 ;SPRUNG UBER RAM-VEKTOR 4000 NACH 1C96 

UP HERE (Hl) 

ERMITTELT STAND DES PC 

I:/ 

0:HL=ZEIGER AUF DEM AUFRUF FOLGENDES BYTE 
OOOB El POP HL ;RUECKSPRUNGADRESSE NACH HL 

OOOC E9 JP (HL) ;RUECKSPRUNG 

OOOD C3 00 00 JP 0000 ;SPRUNG ZUR D0SINITIA1ISIERUNG 

RST 10 

0010 C3 03 40 JP 4003 ;SPRUNG UEBER RAM-VEKTOR 4003 NACH 1D78 


0013 C5 PUSH BC ;TEIL DES INCH (DISK-READ)-AUFRUFS UEBER DCB: BC RETTEN 

0014 06 01 LD B.01 ;BIT 0 VON B FUER INCH SETZEN 

0016 18 2E JR 0046 ;SPRUNG ZUR DCB-AUFRUFROUTINE 


RST 18 

0018 C3 06 40 JP 4006 ;SPRUNG UEBER RAM-VEKTOR 4006 NACH 1C90 


001B C5 PUSH BC ;TEIL DES OUTCH (PRINT/DISK-WRITE)-AUFRUFS UEBER DCB: BC RETTEN 

001C 06 02 LD B,02 ;BIT 1 VON B FUER OUTCH SETZEN 

00IE 18 26 JR 0046 ;SPRUNG ZUR DCB-AUFRUFROUTINE 


0020 

C3 

09 40 

RST 20 
JP 

4009 

;SPRUNG 

UEBER RAM-VEKTOR 4009 NACH 25D9 

0023 

0024 

0026 

C5 

06 

18 

04 

IE 

PUSH 

LD 

JR 

BC 

B,04 

0046 

;N. V. 


0028 

C3 

OC 40 

RST 28 
JP 

400C 

;SPRUNG 

ZUM RAM-VEKTOR 400C (UNBENUTZT) 


UP INCH (AF,DE=4015) 
TASTATURABFRAGE 


I:/ 

0:A=ASCII-CODE NEU GEDRUECKTER TASTE ODER 0, WENN KEINE NEU GEDRUECKT 
002B 11 15 40 LD DE,4015 ;KEYBOARD-DCB-ADRESSE NACH DE 

002E 18 E3 JR 0013 ;WEITER BEI 0013 

RST 30 

0030 C3 OF 40 JP 400F ;SPRUNG ZUM RAM-VEKTOR 400F (UNBENUTZT) 


UP OUTCH (F,DE=401D) 

AUSGABE EINES ZEICHENS AUF DEN BILDSCHIRM 
I:A=ASCII-CODE DES AUSZUGEBENDEN ZEICHENS 
0 :/ 

0033 11 ID 40 LD DE.401D ;DISPLAY-DCB-ADRESSE NACH DE 

0036 18 E3 JR 001B ;WEITER BEI 001B 


RST 38 

0038 C3 12 40 JP 4012 ;SPRUNG ZUM RAM-VEKTOR 4012 (UNBENUTZT) 


UP PRINT (AF,DE=4025) 

AUSGABE EINES ZEICHENS AUF DEN DRUCKER 
I:A=ASCII-CODE DES AUSZUGEBENDEN ZEICHENS 
0 :/ 

003B 11 25 40 LD DE,4025 ;PRINTER-DCB-ADRESSE NACH DE 

003E 18 DB JR 001B ;WEITER BEI 001B 


0040 C3 D9 05 JP 05D9 ;SPRUNG ZUR INBUFF-ROUINE (SIEHE DORT) 

0043 C9 RET ;N. V. 

0044 00 NOP 

0045 00 NOP 

0046 C3 C2 03 JP 03C2 ;SPRUNG ZUR DCB-AUFRUFROUTINE (SIEHE DORT) 

UP INCHW 7aF,DE=4015) 

TASTATURABFRAGE (WARTET BIS EINE NEUE TASTE GEDRUECKT WIRD) 

I:/ 

0:A=ASCII-C0DE NEU GEDRUECKTER TASTE 


0049 CD 2B 00 

CALL 

002B 

;INCH AUFRUFEN 

004C B7 

OR 

A 

;NEUE TASTE GEDRUECKT? 

004D CO 

RET 

NZ 

;JA, ZURUECK MIT CODE IN A 

004E 18 F9 

JR 

0049 

;NEIN, WEITER 


TASTATURDECODIERUNGSTABELLE: 

BEINHALTET DIE ASCII-CODES DER CONTROL-TASTEN IN FOLGENDER REIHENFOLGE: 
(UNSHIFTED, SHIFTED) 

ENTER CLEAR BREAK UP DOWN LEFT RIGHT SPACE 
0050 OD OD 1F 1F 01 01 5B 1B OA 1A 08 18 09 19 20 20 .Ä. 

UP DELAY (AF=0044,BC=0000) 

ZEITSCHLEIFE 

I:BC=BESTIMMT ZEITDAUER (11.73 US * BC) 

0 :/ 

0060 OB DEC BC ;SCHLEIFENZAEHLER DEC. 

0061 78 LD A,B ;SCHLEIFENZAEHLER=0? 
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(_XJb2 El 

0063 20 PB 


OK 

JR 

C 

NZ.0060 

NEIN, WEITER 

0065 C9 



RET 



0066 01 

18 

1A 

LD 

BC.1A18 

BC =RUECKSPRUNGADRESSE 

0069 C3 

CA 05 

JP 

05 CA 

WEITER —> 




BASICINITIALISIERUNG 


006C 31 

F8 

41 

LD 

SP.41F8 

STACKPOINTER LADEN 

006P 11 

80 

40 

LD 

DE,4080 

UP'S FUER DIV.,OUT,INP U.A. IN RAM UEEERTRAGEN 

0072 21 

F7 

18 

LD 

HL.18F7 

SIEHE 18F7 FOLGENDE 

0075 01 

27 

00 

LD 

BC.0027 

LAENGE DES BEREICHES 

0078 C3 

40 

01 

JP 

0140 

WEITER —> 

007B 21 

01 

58 

LD 

HL.5801 

HL=PROGRAMMANFANG BEI VOLLER GRAPHIK 

007E 3A 80 

F8 

LD 

A,(F880) 

TEST OB 

0081 CB 

4F 


BIT 

1,A 

MODSEL-TASTE GEDRUECKT? 

0083 20 

09 


JR 

NZ.008E 

JA —> 

0085 22 

A4 

40 

LD 

(40A4),HL 

PROGRAMMTEXTANFANG ABSPEICHERN 

0088 CD 

46 

38 

CALL 

3846 

FCLS FUNKTION 

008B 22 

A4 

40 

LD 

(40A4),HL 

PROGRAMMTEXTANFANG ABSPEICHERN 




I/O BUFFER EINRICHTEN: 


008E 21 

E5 

41 

LD 

HL t 41E5 

I/O BUFFERADRESSE-3 NACH HL 

0091 36 

3A 


LD 

(HL),3A 

':',0,',' AUF DIE 3 BYTES VOR DEM 

0093 23 



INC 

HL 

I/O BUFFER SCHREIBEN 

0094 70 



LD 

(hl),b 


0095 23 



INC 

HL 


0096 36 

2C 


LD 

(HL),2C 


0098 23 



INC 

HL 


0099 22 

A7 

40 

LD 

(40A7),HL 

I/O BUFFERADRESSE (41E8) ABSPEICHERN 




DISK-BASIC-ERWEITERUNGEN ZURUECKSETZEN 

009C 11 

3B 01 

LD 

DE.013B 

VEKTOREN FUER NEUE BEFEHLE AUF SN-ERROR SETZEN 

009F 06 

IC 


LD 

B.lc 

28D STUECK 

00AI 21 

52 

41 

LD 

HL.4152 

RAMADRESSE DER VEKTOREN NACH HL 

00A4 36 

C3 


LD 

(Hi),c3 

SPRUNGADRESSE EINSCHREIBEN 

00A6 23 



INC 

HL 

ZEIGER INC. 

OOA7 73 



LD 

(hl),e 

SPRUNGADRESSE EINSCHREIBEN (LSB) 

00A8 23 



INC 

HL 

ZEIGER INC. 

00A9 72 



LD 

(hl),d 

SPRUNGADRESSE EINSCHREIBEN (MSB) 

00AA 23 



INC 

HL 

ZEILE INC. 

00AB 10 

F7 


DJNZ 

00A4 

WEITER BIS ENDE 




ZEIGER 

FUER ERWEITERUNG ALTER BASICBEFEHLE DURCH RET ERSETZEN 

00AD 06 

15 


LD 

B, 1 5 

27D STUECK 

00AF 36 

C9 


LD 

(HL),C9 

RETURN-BEFEHL ABSPEICHERN 

00B1 23 



INC 

HL 

PLATZ FUER EVENTUELL EINZUFUEGENDEN 

00B2 23 



INC 

HL 

SPRUNGBEFEHL LASSEN (3 BYTES) 

00B3 23 



INC 

HL 


00B4 10 

F9 


DJNZ 

00 AF 

WEITER BIS ENDE 




PROGRAMMANFANG MARKIEREN.CRTC UND STACK INITIALISIEREN 

00B6 2A A4 

40 

LD 

HL,(40A4) 

ZEIGER AUF PROGRAMMTEXTANFANG 

00B9 2B 



DEC 

HL 

-1 

OOBA 70 



LD 

(HL),B 

0 ABSPEICHERN 

OOBB CD 

70 38 

CALL 

3870 

CRTC INITIALISIEREN 

OOEE CD 

8F 

1B 

CALL 

1B8F 

STACK INITIALISIEREN 

00C1 CD 

AF 

06 

CALL 

06 AF 

CARTRIDGE PRÜEFEN UND EVTL. ANSPRINGEN 




MEM SIZE ODER SPEICHERENDE ERMITTELN 

00C4 CD 

C9 

01 

CALL 

01C9 

BILDSCHIRM LOESCHEN 

00C7 21 

18 

01 

LD 

HL,Öl 18 

ZEIGER AUF TEXT 'MEM SIZE' NACH HL 

OOCÄ CD 

A7 

28 

CALL 

28A7 

TEXT AUSGEBEN 

00 CD CD 

B3 

1B 

CALL 

1BB3 

'?' AUSGEBEN UND EINGABE EINER ZEILE 

OODO 38 F5 


JR 

C.0ÖC7 

BREAK ? —> JA, ERNEUTE ABFRAGE 

00D2 D7 



RST 

10 

ERSTES ZEICHEN SUCHEN 

00D3 B7 



OR 

A 

=ZEILENENDE? (D.H.NICHTS EINGEGEBEN) 

00D4 20 

13 


JR 

NZ,00E9 

NEIN, MEM SIZE 

00D6 21 

00 

40 

LD 

HL,4000 

SPEICHERENDE SUCHEN AB 4000 

00D9 23 



INC 

HL 

ZEIGER AUF NAECHSTE ZELLE 

OODÄ 7C 



LD 

A,H 

ZEIGER=0 ? (ROM ERREICHT) 

OODB B5 



OR 

L 


OODC 28 

IC 


JR 

Z, OOFA 

JA —> 

OODE 7E 



LD 

A,(HL) 

SPEICHERINHALT LADEN 

OODF 47 



LD 

B,A 

NACH B RETTEN 

OOEO 2F 



CPL 


1- COMPLEMENT BILDEN 

00E1 77 



LD 

(HL),a 

UND ABSPEICHERN 

00E2 BE 



CP 

(HL) 

AUSGELESENER WERT IDENTISCH? 

00E3 70 



LD 

(hl),b 

ALTEN WERT WIEDER HERSTELLEN 

00E4 28 F3 


JR 

Z,00D9 

JA, NAECHSTE SPEICHERSTELLE UNTERSUCHEN 

00E6 25 



DEC 

H 

256 BYTES FUER SHAPE TAELE ABZIEHEN 

00E7 18 

11 


JR 

OOFA 

ERMITTELTES SPEICHERENDE WEITER VERARBEITEN 




MEM SIZE VERARBEITEN 


00E9 CD 

5A 

IE 

CALL 

1E5A 

STRING IN INTEGER (< 65530D (IN DE)) UMWANDELN 

OOEC B7 



OR 

A 

DANACH ZEILENENDE? 

OOED C2 

97 

19 

JP 

NZ,1997 

NEIN. SN-ERROR 

OOFO EB 



EX 

DE,HL 

ZEIGER FUER LETZTE SPEICHERSTELLE NACH HL 

00F1 2B 



DEC 

HL 

ZEIGER DEC. 

00F2 3E 8F 


LD 

A.8F 

TESTWERT 8F IN AKKU 

OOF4 46 



LD 

B,(HL) 

INHALT DER ZELLE NACH B RETTEN 

00F5 77 



LD 

(HL),a 

TESTWERT EINSCHREIBEN 

00F6 BE 



CP 

(HL) 

MIT AUSGELESENEM WERT IDENTISCH? 

00F7 70 



LD 

(HL).B 

ALTEN WERT ZURUECK 

00F8 20 

CD 


JR 

NZ,0ÖC7 

NEIN, NEUEN MEM SIZE ANFORDERN 




SPEICHERBEREICH FUER BASIC FESTLEGEN 

OOFA 2B 



DEC 

HL 

; ZEIGER AUF LETZTE VORHANDEN ZELLE 

OOFB 11 

14 

44 

LD 

DE,4414 
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DOPET 

"DF 



KST 

-T8- 



OOFF 

DA 

7A 

19 

JP 

C.197A 

;JA. OM-ERROR 


0102 

11 

CE 

PP 

LD 

DE.FFCE 

;0000-50D NACH DE 


0105 

22 

Bl 

40 

LD 

40B1),HL 

ZEIGER AUF LETZTE SPEIC HFRZET.T.E ABSPEICHERN 

0108 

19 



ADD 

HL, DE 

-50D ERGIBT ANFANG DER STRINGSPACE-1 IN 

HL 

0109 

22 

AO 

40 

LD 

(40A0),HL 

ANFANG DER STRINGSPACE-1 ABSPEICHERN 


01OC 

CD 

4D 

1B 

CALL 

1B4D 

NEW, ALLES LOESCHEN 


01 OP 

21 

21 

01 

LD 

HL,0121 

ZEIGER AUF TEXT 'COLOUR BASIC' 


0112 

CD 

A7 

28 

CALL 

28A7 

TEXT AUSGEBEN 


0115 

C5 

19 

1A 

JP 

1 AI 9 

SPRUNG ZUR HAUPTSCHLEIFE 






TEXTE 

(KLEINSCHRIFT AB AUGUST 83) 


0118 

4D 

45 

4D 20 

55 49 

5A 45 00 

HEM SIZE. 


0121 

45 

4P 

4C 4P 55 52 

20 42 41 53 49 43 OD 00 COLOUR BASIC. 


012P 

PP 

PP 

PP 



3 BYTES FREI 


0152 

C5 

6B 

01 

JP 

016B 

SPRUNG NACH CHECK-BEFEHL 


0155 

C5 

4P 

01 

JP 

014P 

SPRUNG NACH SET-BEFEHL 


0158 

C5 

5D 

01 

JP 

015D 

SPRUNG NACH RESET-BEFEHL 






HFTKMALS L3“ERROR 



015B 

IE 

2C 


LD 

E,2C 

3N-ERR0R-C0DE NACH E 


015D 

C5 

A2 

19 

JP 

19A2 

SPRUNG IN ERROR ROUTINE 






BASICINITIALISIERUNG PORTSETZEN 


0140 

ED 

BO 


LDIR 


ELOCKUEEERTRAGUNG SIEHE 006F 


0142 

21 

01 

CO 

LD 

HL.C001 

PROGTEXT AUF COO EINSETZEN 


0145 

5A 

00 

CO 

LD 

A,(COOO) 

IST IN DER CARTRIDGE 


0148 

B7 



OR 

A 

EIN BASICPROGRAMM? 


0149 

C2 

7B 

00 

JP 

NZ,007B 

NEIN —> 


014C 

C5 

8B 

00 

JP 

008B 

JA —> 





** 

SET-ANWEISUNG 



014P 

CD 

85 

01 

CALL 

0183 

BIT IN B, ADRESSE IN DE 


0152 

5E 

01 


LD 

A,01 

MASKE LADEN 


0154 

07 



RLCA 


ROTIEREN BIS 


0155 

10 

PD 


DJNZ 

0154 

BITPOSITION 


0157 

OP 



RRCA 


ERREICHT 


0158 

47 



LD 

B,A 

MASKE NACH B 


0159 

1A 



LD 

A,(DE) 

A=INHALT DER ADRESSE 


015A 

BO 



OR 

B 

BIT SETZEN 


015B 

12 



LD 

(de),a 

UND ABSPEICHERN 


015C 

C9 



RET 







** 

RESET 

-ANWEISUNG 



015D 

CD 

85 

01 

CALL 

0183 

BIT IN B, ADRESSE IN DE 


0160 

5E 

PE 


LD 

A,PE 

MASKE LADEN 


0162 

07 



RLCA 


ROTIEREN BIS 


0165 

10 

PD 


DJNZ 

0162 

BITPOSITION 


0165 

OP 



RRCA 


ERREICHT 


0166 

47 



LD 

B,A 

MASKE NACH B 


0167 

1A 



LD 

A,(DE) 

A=INHALT DER ADRESSE 


0168 

AO 



AND 

B 

BIT LOESCHEN 


0169 

12 



LD 

(DE),A 

UND ABSPEICHERN 


016A 

C9 



RET 







** 

CHECK 

-ANWEISUNG 



016B 

D7 



RST 

10 

ZEICHEN LADEN 


016C 

CP 



RST 

08 

SYNTAX CHECK: POINTER AUF '(' 


016D 

28 





( 


016E 

CD 

85 

01 

CALL 

0183 

BIT IN B,ADRESSE IN DE 


0171 

E5 



PUSH 

HL 

POINTER RETTEN 


0172 

1A 



LD 

A,(DE) 

A=INHALT DER ADRESSE 


0175 

1F 



RRA 


ROTIEREN BIS 


0174 

10 

PD 


DJNZ 

0173 

BITPOSITION ERREICHT 


0176 

21 

PP 

PF 

LD 

HL.PPPP 

HL AUF -1 SETZEN 


0179 

58 

01 


JR 

C.017C 

WENN BIT GESETZT —> 


017B 

25 



INC 

ia 

SONST, HL=0 


017C 

CD 

9A 

OA 

CALL 

0A9A 

HL IN DAS X-REGISTER SCHREIBEN 


017P 

El 



POP 

HL 

POINTER ZURUECK 


0180 

CP 



RST 

08 

SYNTAX-CHECK: POINTER AUF ')' 


0181 

29 





) 


0182 

C9 



RET 








UP FUER SET.RESET UND 

CHECK 


0185 

CD 

IC 

2B 

CALL 

2B1C 

AUSDRUCK AUSWERTEN, ERGEBNIS IN INTEGER 

UMWANDELN 

0186 

PE 

08 


CP 

08 

< 8 ? 


0188 

D2 

4A 

IE 

JP 

NC,1E4A 

NEIN —> FC-ERROR 


018B 

F5 



PUSH 

AF 

WERT RETTEN 


018C 

CP 



RST 

08 

SYNTAX-CHECK: POINTER AUF ',' 


018D 

2C 







018E 

CD 

02 

2B 

CALL 

2B02 

INTEGER AUSDRUCK NACH DE 


0191 

PI 



POP 

AP 

WERT ZURUECK 


0192 

47 



LD 

B,A 

BITPOSITION NACH B 


0195 

04 



INC 

B 

+1 


0194 

C9 



RET 




0195 

PP 

PP 

PF FF FF FF 

PP 

7BYTES FREI 





** 

INKEYS-FUNKTION 







TASTATURABPRAGE OHNE PROGRAMMSTOP 


019D 

D7 



RST 

10 

NAECHSTES ZEICHEN 


019E 

E5 



PUSH 

HL 

POINTER RETTEN 


019F 

5A 

99 

40 

LD 

A,(4099) 

ZEICHEN AUS INKEY$-ZWISCHENSPEICHER LADEN 

01A2 

B7 



OR 

A 

ZEICHEN VORHANDEN? 


01A5 

20 

06 


JR 

NZ.01AB 

JA 


01A5 

CD 

58 

03 

CALL 

0358 

TASTATURABPRAGE, OHNE WARTEN 


01A8 

B7 



OR 

A 

NEUE TASTE GEDRUECKT? 


01A9 

28 

11 


JR 

Z.01BC 

NEIN LEERSTRING NACH X, FERTIG 
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TTT'AH rnr - PTTCra-rp ...'^ypTTTmTTN -WFTRTO - 


ÜTÄF 

T5 - 




PUSH- 

“5F- 

ZEICHEN KETTEN 

01AC 

AF 




XOR 

A 

ZEICHEN LOESCHEN 

01 AD 

32 

99 

40 


ID 

(4099),A 

INKEYS-ZWISCIIENSPEICHER LOESCHEN 

01 BO 

3C 




INC 

A 

STRINGLAENGE= 1 

01 Bl 

CD 

57 

28 


CALL 

2857 

PLATZ FUER 1-BYTE STRING IN STRINGSPACE FREIMACHEN 








UND ADRESSE IN VORLAEUFIGEN ZWISCHENSPEICHER 

01B4 

Fl 




POP 

AF 

ZEICHEN ZURUECK 

C1B5 

2A 

D4 

40 


LD 

RL,(40D4) 

ADRESSE AUS ZWISCHENSPEICHER LADEN 

01BÖ 

77 




LD 

(HL),A 

ZEICHEN IN STRINGSPACE ABSPEICHERN 

01B9 

C3 

84 

28 


JP 

2884 

ZEIGER AUF ZWISCHENSPEICHER NACH X, TYPX--STRING 

01BC 

21 

28 

19 


LD 

HL,1928 

ZEIGER AUF 0 (STRINGLAENGE) NACH HL 

01 BF 

22 

21 

41 


LD 

(4121),HL 

NACH X 

01C2 

3E 

03 



LD 

A,03 

TYPCODE FUER STRING (3) NACH A 

01C4 

32 

AF 

40 


LD 

(40AF),A 

UND IN TYPX ABSPEICHERN 

01C7 

El 




POP 

HL 

POINTER ZURUECK 

01C8 

C9 




RET 







U? 

CLS (A 

=if.f) 






** 

CLS-ANWEISUNG 







BILDSCHIRM WIRD GELOESCHT 






I: 4 








0:/ 



01C9 

3E 

IC 



LD 

A, 1 C 

HOME(64CPL)-CODE NACH A 

01 CB 

CD 

3A 

03 


CALL 

033A 

AUSGEBEN 

01 CE 

3E 

1F 



LD 

A, 1F 

CLEAR-TO-END-OF-FRAME-CODE NACH A 

01 DO 

C3 

3A 

03 


JP 

033A 

AUSGEBEN UND ZURUECK 





** 

RANDOM- 

ANWEISUNG 







INITIALISIERUNG DES ZUFALLSZAHLENGENERÄTORS 

01D3 

ED 

5F 



LD 

A,R 

REFRESH-REGISTER NACH A 

01D5 

32 

AB 

40 


LD 

(40AB),A 

IN RANDOM-NUMBER-SPEICHER ABSPEICHERN 

01D8 

C9 




RET 







UP 

PULSE 

(AF) 







GIBT IMPULS AUF KASSETTE AUS 






I:/ 








0:/ 



01D9 

3A 

IC 

43 


LD 

A.(431C) 

AKKU-BELEGUNG DES PORT FF 

01DC 

EE 

01 



XOR 

01 

BIT 0 TOGGELN 

01 DE 

D3 

FF 



OUT 

FF 

AUSGEBEN 

01EO 

32 

IC 

43 


LD 

(431C),A 

RETTEN 

01E3 

C9 




RET 







UP 

BLINK 

(AF) 







SCHALTET STERN IN BILDSCHIRMECKE UM 






I:/ 








0:/ 



01E4 

3A 

27 

44 


LD 

t — 
CM 

< 

INHALT VON OBERER RECHTER BILDECKE LADEN 

01E7 

EE 

OA 



XOR 

OA 

MIT OA XOR-VERKNUEPFEN (' ') 

01E9 

32 

27 

44 


LD 

(4427),A 

WIEDER ABSPEICHERN 

01 EC 

C9 




RET 







UP 

READB 

(AF) 







LIEST BYTE VON CASSETTE 






I:/ 








0:A=EINGELESENES BYTE 


01 ED 

D9 




EXX 


REGISTER RETTEN 

01EE 

06 

08 



LD 

B,08 

BITZAEHLER-8 

OIFO 

16 

00 



LD 

D ,00 

D=0 

01F2 

CD 

FA 

01 


CALL 

01 FA 

BIT EINLESEN (D=2*D+BIT) 

Ü1F5 

10 

FB 



DJNZ 

01F2 

8*WIEDERH0LEN 

01F7 

7A 




LD 

A,D 

BYTE NACH A 

01F8 

D9 




EXX 


REGISTER ZURUECK 

01F9 

C9 




RET 







UP 

READBI 

(AF) 







I:D=BYTE 







0:D=BYTE*2+BIT 


01 FA 

C5 




PUSH 

BC 

BC RETTEN 

01FB 

DB 

FF 



IN 

FF 

AUF SYNCHRONBIT WARTEN:INPUT LESEN 

01FD 

E6 

01 



AND 

01 


01 FF 

5P 




LD 

E,A 

BIT NACH E 

0200 

DB 

FF 



IN 

FF 


0202 

E6 

01 



AND 

01 

NAECHSTES BIT LESEN 

0204 

AB 




XOR 

E 

MIT 2.BIT VERKNUEPFEN 

0205 

1F 




RRA 


IST EIN FLANKENWECHSEL AUFGETRETEN ? 

0206 

30 

F8 



JR 

NC,0200 

NEIN, —> 

0208 

3C 




INC 

A 

SYNCHRONBIT ERREICHT 

0209 

AB 




XOR 

E 


020A 

5F 




LD 

E,A 

WERT NACH E 

020B 

3A 

12 

43 


LD 

A,(4312) 

CASSETTENZAEHLER NACH A 

020E 

47 




LD 

B,A 

ALS ZEIT- 

020F 

10 

FE 



DJNZ 

020F 

SCHLEIFE VERWENDEN 

0211 

DB 

FF 



IN 

FF 

WERT EINLESEN 

0213 

E6 

01 



AND 

01 

BIT AUSBLENDEN 

0215 

AB 




XOR 

E 

MIT ALTEM BIT XOR-VERKNUEPFEN 

0216 

CB 

22 



SLA 

D 

D=D*2 

0218 

B2 




OR 

D 

+BIT 

0219 

57 




LD 

D,A 

NACH D 

021A 

CI 




POP 

b6 

BC ZURUECK 

021B 

C9 




RET 


* 





UP 

WRBTW 








SCHREIBT BYTE 2* AUF CASSETTE 






I:A=AUFZUZEICHNENDES BYTE 






0:/ 



021C 

CD 

1F 

02 


CALL 

021F 

BYTE AUFZEICHNEN 


UP WRITEB 
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SCHREI™ im r AUF CASSETTE- - a -- 

I:A=AUFZUZEICHNENDES BYTE 


021F D9 

U 


0220 F5 

PUSH 

AF 

0221 OE 08 

LD 

C,08 

0223 57 

LD 

D.A 

0224 CD D9 01 

CALL 

01D9 

0227 3A 10 43 

LD 

A,(4310) 

022A 47 

LD 

B.A 

022B 10 FE 

DJNZ 

022B 

022D 7A 

LD 

A,D 

022E 07 

RLCA 


022F 57 

LD 

D,A 

0230 DC D9 01 

CALL 

C,01D9 

0233 3A 11 43 

LD 

A,(4311) 

0236 47 

LD 

B,A 

0237 10 FE 

DJNZ 

0237 

0239 OD 

DEC 

C 

023A 20 E8 

JR 

NZ,0224 

023C Fl 

POP 

AF 

023D D9 

EXX 


023E C9 

RET 



.•REGISTER RETTEN 
;AF RETTEN 
;BITZAEHLER=8 
;BYTE NACH D 
;TAKIMPULS AUSGEBEN 
;ZEITZAEHLER LADEN 
;ZEITSCHLEIFE 

;WERT ZURUECK 
;ROTIEREN 
; WERT NACH D 

;WENN BIT, CASSETTENAUSGANG TOGGELN 
;ZEITZAEHLER LADEN 
;ZEITSCHLEIFE 

;8 * WIEDERHOLEN 

; AF ZURUECK 
; REGISTER ZURUECK 


UP WRITES (AF,B) 

SCHREIBT SYNCHRONBYTES(255D * AA UND 66) 
I:/ 

0:7 


023F 06 FF 
0241 3E AA 
0243 CD 1F 
0246 10 FB 
0248 3E 66 
024A 18 D3 

02 

LD 

ID 

CALL 

DJNZ 

LD 

JR 

B,FF 

A,AA 

021F 

0243 

A.66 

021F 



UP READS 
LIEST 

W 

(AF) 

SYNCHRONISATION 

024C E5 


PUSH 

HL 

024D D5 


PUSH 

DE 

024E C5 


PUSH 

BC 

024F 21 69 35 

LD 

HL.3569 

0252 11 00 

00 

LD 

DE.0000 

0255 3A 23 

40 

LD 

A,(4023) 

0258 5F 


LD 

E.A 

0259 19 


ADD 

HL, DE 

025A 7E 


LD 

A,(HL) 

025B 32 26 

FO 

LD 

(F026),A 

025E 32 27 

FO 

LD 

(F027),A 

0261 01 AA 

80 

LD 

BC,80AA 

0264 CD FA 

01 

CALL 

01 FA 

0267 B9 


CP 

C 

0268 20 F7 


JR 

NZ,0261 

026A 3E FF 


LD 

A,FF 

026C Ä9 


XOR 

C 

026D 4F 


LD 

C,A ; 

026E 10 F4 


DJNZ 

0264 : 

0270 CD FA 

01 

CALL 

01 FA : 

0273 FE 66 


CP 

66 | 

0275 20 F9 


JR 

NZ.0270 : 

A,2A j 

0277 3E 2A 


LD 

0279 32 26 

44 

LD 

4426),A : 

027C 32 27 

44 

LD 

(4427),A ; 

027F CI 


POP 

BC : 

0280 Dl 


POP 

DE 

0281 El 

0282 C9 


POP 

RET 

HL 


255D AA-BYTES 
AUFZEICHNEN 

WIEDERHOLEN 

SYNCHRONBYTE 66 IN AKKU 
UND AUFZEICHNEN 


REGISTER RETTEN 


TABELLE FUER FARBCODE 

ZEIGER=0 

FARBCODE 

ZEIGER IN 

FARBTABELLE BERECHNEN 

FARBCODE LADEN 

FARBEN FUER STERNCHEN IN 

RECHTER OBERER BILDSCHIRMECKE SETZEN 

C=SYNCHRONBYTE AA,B-ZAEHLER 

LIEST BIT VON CASSETTE 

SYNCHRONBYTE ERREICHT 

NEIN —> 

AUS AA WIRD 66 £ 

C=66 5T 
WEITER BIS B=0 
LIEST BIT VON CASSETTE 
SYNCHRONBYTE 66 ERREICHT? 

NEIN —> 

STERN IN AKKU 
2 STERNE IN OBERE, 

RECHTE ECKE SETZEN 
REGISTER ZURUECK 


0283 FF FF FF FF FF FF FF FF FF FF ;41 BYTES FREI 

028D FF FF FF FF FF FF FF FF FF FF 

0297 FF FF FF FF FF FF FF FF FF FF 

02A1 FF FF FF FF FF FF FF FF FF FF 

02AB FF 


02AC CD 14 03 
02AF 22 DF 40 


ENTRYPOINT LESEN 
CALL 0314 

LD (40DF),HL 


;ENTRYPOINT EINLESEN 
;UND ABSPEICHERN 


02B2 

CD 

E2 

41 

CALL 

41E2 

02B5 

31 

88 

42 

LD 

SP,4288 

02B8 

CD 

FE 

20 

CALL 

20FE 

02BB 

3E 2A 


LD 

A,2A 

02BD 

CD 

2A 03 

CALL 

032A 

02C0 

CD 

B3 

1B 

CALL 

1BB3 

02C3 DA 

66 

00 

JP 

C.OO66 

02C6 

D7 



RST 

l6 

02C7 

CA 

97 

19 

JP 

Z,1997 

02CA 

FE 

2F 


CP 

2F 

02CC 

28 

4P 


JR 

Z,031D 





OBJECTFILE VON ( 

02CE 

CD 

4C 

02 

CALL 

024C 

02D1 

CD 

ED 

01 

CALL 

01ED 

02D4 

FE 

55 


CP 

55 

02D6 

20 

F9 


JR 

NZ,02D1 

02D8 

06 

06 


LD 

B,06 


SYSTEM-BEFEHL 

LIEST SYSTEM-TAPES UND STARTET SIE 


STACK IN I/O-BUFFER (!) EINRICHTEN 
CR AUSGEBEN 
STERN IN AKKU 
AUSGEBEN 

'? AUSGEBEN UND ZEILNEINGABE, BREAK? 

JA, BASICWARMSTART 

ERSTES ZEICHEN SUCHEN, ZEI LEN ENDE? 

JA. SN-ERROR 

'/ (OBJECTFILE STARTEN)? 

JA 


CASSETTE AN UND SYNCHRONISATION LESEN 
BYTE LESEN 
=FILENAMEHEADER? 

NEIN, NAECHSTES BYTE 

ZAEHLER FUER 6 ZEICHEN DES NAMEN 
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U2D T 

TET 



ED- 

A,(HL) 

ZEICHEN AUS' I7Ü^BU'FFEK' LÄDEN- 

02DB 

B7 



OR 

A 

ZEILENENDE? 

02DC 

28 

09 


JR 

Z,02E7 

01 ED 

JA, FILE LADEN 

02DE 

CD 

ED 

01 

CALL 

NAMENSBYTE VON CASSETTE LESEN 

02E1 

BE 



CP 

(HL) 

=BYTE AUS I/O-BUFFER? 

02E2 

20 

ED 


JR 

NZ,02D1 

NEIN, NAECHSTEN FILENAMEHEADER SUCHEN 

I/O-BUFFER-ZEIGER INC. 

02E4 

23 



INC 

HL 

02E5 

10 

F3 


DJNZ 

02DA 

WEITER BIS ALLE 6 VERGLICHEN 

02E7 

CD 

E4 

01 

CALL 

01E4 

STERN UMSCHALTEN 

02EA 

CD 

ED 

01 

CALL 

01ED 

BYTE LESEN 

02ED 

PE 

78 


CP 

78 

=ENTRYPOINTHEADER? 

02EP 

28 

BB 


JR 

Z,02AC 

JA 

02P1 

PE 

3C 


CP 

3C 

=DATAHEADER? 

02F3 

20 

F5 


JR 

NZ ,02EA 

NEIN, NAECHSTES BYTE 





RECORD 

LESEN 


02P5 

CD 

ED 

01 

CALL 

01ED 

RECORDLAENGE LESEN 

02P8 

47 



LD 

B.A 

NACH B 

02F9 

CD 

14 

03 

CALL 

0314 

RECORDANPANGSADRESSE LESEN 

02PC 

85 



ADD 

L 

PRUEPSUMME DER ADRESSE BILDEN 

02PD 

4P 



LD 

C,A 

NACH C 

02PE 

CD 

ED 

01 

CALL 

01 ED 

DATENBYTE LESEN 

0301 

77 



LD 

(HL),a 

ABSPEICHERN 

0302 

23 



INC 

HL 

ZEIGER INC. 

0303 

81 



ADD 

C 

ZUR PRUEPSUMME ADDIEREN 

0304 

4P 



LD 

C,A 


0305 

10 

F7 


DJNZ 

02PE 

WEITER, BIS RECORD GELESEN 

0307 

CD 

ED 

01 

CALL 

01ED 

PRUEFSÜMME LESEN 

030A B9 



CP 

C 

IDENTISCH MIT ERRECHNETER PRUEPSUMME? 

030B 28 

DA 


JR 

Z,02E7 

JA, NAECHSTEN RECORD 

030D 

3E 43 


LD 

A,4 3 

FEHLER AUSGEBEN: 'C' NACH A 

030P 32 

26 

44 

LD 

(4426),A 

FUER LINKEN STERN EINSETZEN 

0312 

18 

D6 


JR 

02EA 

WEITER 


UP READW (AP,HL) 

LIEST WORT (LSB, MSB) VON CASSETTE 

I:/ 

0:HL=EINGELESENES WORT 


0314 CD ED 01 

CALL 

01 ED 

;LSB LESEN 

0317 6F 

LD 

L.A 

;NACH L 

0318 CD ED 01 

CALL 

01ED 

;MSB LESEN 

031B 67 

LD 

H,A 

;NACH H 


031C C9 


RET 


031D EB 
031E 2A DP 40 
0321 EB 
0322 D7 
0323 04 5A IE 
0326 20 8A 
0328 EB 
0329 E9 


OBJECTPILE ANSPRINGEN 


EX 

LD 

EX 

RST 

CALL 

JR 

EX 

JP 


DE, HL 
HL,(40DF) 
DE, HL 

10 

NZ,1E5A 
NZ,02B2 
DE, HL 
(Hi) 


I/O-BUPFERZ. NACH DE 
ENTRYPOINT LADEN 
1/O-BUPFERZ. ZURUECK 
NAECHSTES ZEICHEN, ZEIENENDE? 

NEIN, ZAHL ERMITTELN (NACH DE) 

NOCH MEHR ZEICHEN? —> SYSTEM-BEFEHL-RESTART 
ANSPRUNGADRESSE NACH HL 
ANSPRINGEN UEBER HL 


UP OUTCHF (P) 

GIBT ZEICHEN AUF BILDSCHIRM, PRINTER ODER CASSETTE AUS 
I:A=AUSZUGEBENDES ZEICHEN 




(409C 

0:/ 

PUSH 

=AUSGABE-PLAG 

(0=BILDSCHIRM, 1=PRINTER, 80=CASSETTE) 

032A C5 


BC 

BC RETTEN 

032B 4F 


LD 

C.A 

ZEICHEN NACH C RETTEN 

032C CD CI 

41 

CALL 

41 CI 


032F 3A 9C 

40 

LD 

A, (409C) 

FLAG LADEN 

0332 B7 


OR 

A 

PLAG TESTEN 

0333 79 


LD 

A,C 

ZEICHEN ZURUECK 

0334 CI 


POP 

BC 

BC ZURUECK 

0335 C3 64 
0338 FP PP 

05 

JP 

0564 

WEITER BEI —> 

2 BYTE FREI 


UP 


033A D9 
033B P5 
0330 CD 33 00 
033F CD 48 03 
0342 32 A6 40 
0345 PI 
0346 D9 
0347 C9 


0UTCH2 (P) 

GIBT ZEICHEN AUF DEN BILDSCHIRM AUS 
I:A=AUSZUGEBENDES ZEICHEN 
0:(40A6)=CURSORPOSITION NACHHER 


EXX 


EXX 

RET 


REGISTER RETTEN 


PUSH AP 


;AF RETTEN 

CALL 

0033 

;AUSGABE AUF BILDSCHIRM 

CALL 

0348 

;CURSORPOSITION BESTIMMEN 

LD 

(40A6),A 

;UND ABSPEICKERN 

POP 

AP 

;ZEICHEN ZURUECK 


REGISTER ZURUECK 


UP 


0348 E5 
0349 2A 20 40 
034C 11 00 44 
034F B7 
0350 C3 D9 04 
0353 FP PP 
0355 C3 9D 30 


UP 


0358 CD C4 41 
035B D5 


CURPOS (AP) 

ERMITTELT CURSORPOSITION IN DER ZEILE 
I:(4020)=CURSORADRESSE 
(403D)=P0RTSTATUS 
0:A=CURS0RP0SITI0N 

HL RETTEN 


LD 

HL,(4020) 

HL = CURSORADRESSE 

LD 

DE,4400 

DE = ANFANGSADRESSE 

OR 

A 

CARRY SETZEN 

JP 

04D9 

WEITER —> 



2 BYTES FREI 

JP 

309D 

WEITER —> 

INCH2 

(AP) 


SIEHE 

INCH 


CALL 

41C4 


PUSH 

DE 

DE RETTEN 
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U3öC CU OU CSU ÖÖZB ;lNUH 

035F Dl POP DE ;DE ZURUECK 

0360 C9 RET 

UP INLINE (AF,DE=401D,HL) 

LIEST ZEILE VON TASTATUR IN i/O-BUFFER 

I:/ , 

0:HL=I/O-BUFFERANE-1 





F:CY 

=1, WENN BREAK 


0361 AF 



XOR 

A 

A=0 

0362 32 

99 

40 

LD 

(4099),A 

INKEY $-ZWISCHENSPEICHER=0 

0365 32 

A6 

40 

LD 

(40A6),A 

CURS0RP0SITI0N=0 

0368 CD 

AF 

41 

CALL 

41 AF 


036B C5 



PUSH 

BC 

BC RETTEN 

036C 2A 

A7 

40 

LD 

HL,(40A7) 

I/O-BUFFERANFANG LADEN 

036F 06 

FO 


LD 

B.FO 

240 ZEICHEN NUR ERLAUBT 

0371 CD 

D9 

05 

CALL 

05D9 

INBUFF AUFRUFEN 

0374 F5 



PUSH 

AF 

FLAG RETTEN 

0375 48 



LD 

C,B 

ANZAHL DER EINGEGEBENEN ZEICHEN NACH BC 

0376 06 

00 


LD 

B,00 


0378 09 



ADD 

HL.BC 

AUF BUFFERANFANG ADDIEREN 

0379 36 

00 


LD 

(HL),00 x 

ZEILENENDE MIT 0 MARKIEREN 

037B 2A 

A7 

40 

LD 

HL,(40A7) 

BUFFERANFANG NACH HL 

037E Fl 



POP 

AF 

FLAG ZURUECK 

037F CI 



POP 

BC 

BC ZURUECK 

0380 2B 



DEC 

HL 

BUFFERANFANG-1 NACH HL 

0381 D8 



RET 

C 

BREAK? —> ZURUECK 

0382 AF 



XOR 

A 

NEIN, AKKU=0 

0383 C9 



RET 





UP 

INCHW2 

(AF) 





SIEHE 

INCHW 


0384 CD 

58 03 

CALL 

0358 

INCH2 AUFRUFEN: TASTATUR ABFRAGEN 

0387 B7 



OR 

A 

NEUE TASTE GEDRUECKT 

0388 CO 



RET 

NZ 

JA, ZURUECK MIT CODE IN A 

0389 18 F9 


JR 

0384 

NEIN, WEITER 


UP RESPR (AP) 

AUSGABE-FLAG AUF DISPLAY UND CR AUF DRUCKER, WENN DRUCKKOPF NICHT IN POSITION 0 
I:(409C)=AUSGABEFLAG 

(409B)=DRUCKKOPFPOSITION 
0 :/ 


038B AF 

XOR 

A 

; A=0 

038C 32 9C 40 

LD 

(409C),A 

;AUSGABEFLAG AUF DISPLAY 

038F 3A 9B 40 

LD 

A,(409B) 

;DRUCKKOPFPOSITION NACH A 

0392 B7 

OR 

A 

;=0? 

0393 C8 

RET 

Z 

;JA, ZURUECK 


UP PRCR (A=OD) 



CR AUF DRUCKER 
I:SIEHE PRINT1 
0:SIEHE PRINT1 

AUSGEBEN 

0394 3E OD 

LD 

A,0D 

;NEIN, CR NACH A 

0396 D5 

PUSH 

DE 

;DE RETTEN 

0397 CD 9C 03 

CALL 

039C 

;AUF DRUCKER AUSGEBEN 

039A Dl 

039B C9 

POP 

RET 

DE 

;DE ZURUECK 


UP PRINT1 () 

ZEICHEN AUF DRUCKER AUSGEBEN 
I:A=AUSZUGEBENDES ZEICHEN 


(409B)=DRUCKKOPFPOSITION 
0:(409B)=DRUCKK0PFP0SITI0N NACHHER 


039C F5 

PUSH 

AF 

REGISTER RETTEN 

039D D5 

PUSH 

DE 


039E C5 

PUSH 

BC 


039F 4F 

LD 

C,A 

ZEICHEN NACH C 

03AO IE 00 

LD 

E,00 

E=0 

03A2 FE OC 

CP 

OC 

pp9 

03A4 28 10 

JR 

Z,03B6 

ja' 

03A6 FE OA 

CP 

OA 

LF? 

03A8 20 03 

JR 

NZ.03AD 

NEIN 

03AA 3E OD 

LD 

A,OD 

JA, DURCH CR ERSETZEN 

03AC 4F 

LD 

C,A 

ZEICHEN ZURUECK 

03AD FE OD 

CP 

OD 

CR? 

03AF 28 05 

JR 

Z,03B6 

NEIN 

03B1 3A 9B 40 

LD 

A,(409B) 

DRUCKKOPFPOSITION LADEN 

03B4 3C 

INC 

A 

INC. 

03B5 5E 

LD 

E,A 

NACH E 

03B6 7B 

LD 

A,E 

UND NEUE POSITION ABSPEICHERN 

03B7 32 9B 40 

LD 

(409B),A 


03BA 79 

LD 

A.C 

ZEICHEN NACH A 

03BB CD 3B 00 

CALL 

003B 

PRINT 

03BE CI 

POP 

BC 

REGISTER ZURUECK 

03BF Dl 

POP 

DE 


03C0 Fl 

POP 

AF 


03C1 C9 

RET 




UP CALL () 

RUFT I/'O-ROUT INEN UEBER DCB AUF 
I:BC MUSS AUF STACK SEIN (!) 

B=DCB-TY P 

0 :/ 

UND DIE JEWEILIGEN PARAMETER UND REGISTERBEEINFLUSSUNGEN 


03C2 E5 

PUSH 

HL 

;REGISTER RETTEN 

03C3 DD E5 

PUSH 

IX 


03C5 D5 

PUSH 

DE 

;DE NACH IX KOPIEREN 

03C6 DD El 

POP 

IX 

;(DCB-ADRESSE NACH IX) 

03C8 D5 

PUSH 

DE 

;DE RETTEN 
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U5Cy DD 

U5 

hii 

HL,U3DIT 

KUECKSPKUNGADKESSE SETZEN 

03CC E5 


PUSH 

HL 


03CD 4P 


LD 

C,A 

ZEICHEN NACH C 

OJCE 1A 


LD 

a,(de) 

DCB-TYP LADEN 

03CF AO 


AND 

B 

RICHTIGES BIT GESETZT? 

03D0 B8 


CP 

B 


03D1 C2 33 

40 

JP 

NZ,4033 

NEIN, A=0, RET 

03D4 PE 02 


CP 

02 

KEINE OUTPUTROUTINE? —> CX SETZEN 

03D6 DD 6E 

01 

LD 

L,(IX+01) 

TREIBERADRESSE LADEN (LSB) 

03D9 DD 66 

02 

LD 

H,(IX+02) 

(MSB) 

03DC E9 


JP 

(HL) 

TREIBER ANSPRINGEN 



RUECKKEHR VON DCB-AUFRUF 

03DD Dl 


POP 

DE 

REGISTER ZURUECK 

03DE DD El 


POP 

IX 


03E0 El 


POP 

HL 


03E1 CI 


POP 

BC 


03E2 C9 


RET 





TATATURA3FRAGE 




ANSPRUNG NUR UEBER INCH 

03E3 CD AP 

06 

CALL 

06 AP 

CARTRIDGE (BZW.DOS) ? 

03E6 3A 80 

F8 

LD 

A,(F880) 

CTRL- UND MODSEL-TASTE 

03E9 PE 12 


CP 

12 

GEDRUECKT ? 

03EB 20 OD 


JR 

NZ.03PA 

NEIN —> 

03ED CD A9 

38 

CALL 

38A9 x 

PGR EINSCHALTEN 

03P0 3A 40 

F8 

LD 

A,(P840) 

WARTEN AUF 

03P3 CB 57 


BIT 

2,A 

DRUECKEN DER 

03P5 28 F9 


JR 

Z,03F0 

BREAK TASTE 

03P7 CD BO 

38 

CALL 

38B0 

LGR EINSCHALTEN 

03FA 21 36 

40 

LD 

HL,4036 

TASTATURSTATUSADRESSE NACH HL 

03PD 01 01 

F8 

LD 

BC.F801 

TASTATURADRESSE NACH BC 

0400 16 00 


LD 

D,00 

ZEILENZAEHLER 

0402 OA 


LD 

A,(BC) 

EINE TASTATURZEILE LADEN 

0403 5F 


LD 

E,A 

NACH E 

0404 AE 


XOR 

(HL) 

AENDERUNGEN ERMITTELN (H-BITS) 

0405 73 


LD 

(HL),E 

NEUEN STATUS ABSPEICHERN 

0406 A3 


AND 

E 

AENDERUNG NEU GEDRUECKTE TASTE? 

0407 2Ö 10 


JR 

NZ.0419 

JA, ASCII-CODE ERMITTELN 

0409 14 


INC 

D 

ZEILENZAEHLER+1 

040A 2C 


INC 

L 

STATUSZEIGER+1 

040B CB 01 


RLC 

C 

ZEILENADRESSE 

040D 30 F3 


JR 

NC.0402 

BIS ALLE ZEILEN BEARBEITET 

040P 3a 80 

F8 

LD 

A,(F880) 

IST RPT 

0412 CB 5F 


BIT 

3,A 

GEDRUECKT ? 

0414 C2 D4 

04 

JP 

NZ.04D4 

JA —> 

0417 AP 


XOR 

A 

A LOESCHEN 

0418 C9 


RET 


KEINE NEUE TASTE RUECKKEHR MIT A=0 

0419 5F 


LD 

E,A 

ZEILENINFO NACH E 

041A 21 18 

40 

LD 

HL.4018 

HL=CONTROLCODEADRESSE 

041D 3A 80 

F8 

LD 

A,(F880) 

TASTENDRUCK MERKEN 

0420 CB 4P 


BIT 

1 ,A 

MODSEL ? 

0422 C2 C9 04 

JP 

NZ.04C9 

JA —> 

0425 CB 67 


BIT 

4,A 

CTRL ? 

0427 C2 DO 

04 

JP 

NZ,04D0 

JA —> 

042A 3E 07 


LD 

A,Ö7 

ZEILENZAEHLER 

042C BA 


CP 

D 

GLEICH 7 

042D 28 E8 


JR 

Z.0417 

JA —> 

042P 7A 


LD 

A,D 

ZEILENNUMMER * 8 NACH D 

0430 07 . 


RLCA 


ERGIBT BIT 3-5 DES ASCII-CODES 

0431 07 


RLCA 



0432 07 


RLCA 



0433 57 


LD 

D,A 


0434 OE 01 


LD 

C,01 

STELLUNG DES GESETZTEN BITS IN E ERMITTELN 

0436 79 


LD 

A,C 

GLEICHES BIT IN C UND zEILENINFO GESETZT 

0437 A3 


AND 

E 


0438 20 05 


JR 

NZ,043F 

JA —> 

043A 14 


INC 

D 

BIT 0-2 +1 

043B CB 01 


RLC 

C 

BIT IN C SETZEN (C*2) 

043D 18 F7 


JR 

0436 

WEITER —> 

043p 3A 80 

F8 

LD 

A, (P880) 

SHIPT-TASTE ABFRAGEN 

0442 47 


LD 

B,A 

WENN GEDRUECKT, B0=1 

0443 7A 


LD 

A,D 

ZUM VORLAEUFIGEN CODE 40 ADDIEREN 

0444 C6 40 


ADD 

40 


0446 FE 60 


CP 

60 

BUCHSTABE? 

0448 30 13 


JR 

NC,045D 

NEIN —> 



BUCHSTABEN 


044A CB 08 


RRC 

B 

SHIPT? 

044C 30 31 


JR 

NC,047P 

NEIN —> 

044E C6 20 


ADD 

20 

JA, LOWER CASE ERZEUGEN 

0450 57 


LD 

D,A 

UND WIEDER NACK D 

0451 3A 40 

F8 

LD 

A,(P840) 

DOWN ARROW (SHIFT DOWN ARROW=CONTROL)? 

0454 E6 10 


AND 

10 


0456 7A 


LD 

A,D 

CODE LADEN 

0457 28 26 


JR 

Z,047P 

NEIN —> 

0459 D6 60 


SUB 

60 

CONTROL CODE ERZEUGEN 

045B 18 22 


JR 

047P 

WEITER —> 



ZIFFERN UND SONDERZEICHEN 

045D D6 70 


SUB 

70 

;ZIPPERN UND SONDERZEICHEN:CONTROLTASTE? 

045F 30 10 


JR 

NC,0471 

;JA, CODE AUS TABELLE ENTNEHMEN 

0461 C6 40 


ADD 

40 

; CODEKORREKTUR 

0463 PE 3C 


CP 

3C 

;TASTEN GEDRUECKT? 

0465 38 Ö2 


JR 

C.0469 

;NEIN —> 

0467 EE 10 


XOR 

l6 

;JA, SHIFTBIT INVERTIEREN 

0469 CB 08 


RRC 

B 

; SHIPT? 

046B 30 12 


JR 

NC,047P 

^ NEIN —> 

046D EE 10 


XOR 

10 

;JA, SHIFTBIT INVERTIEREN 
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U46E 18 ÜE JR- U47F-jWETTFR’ —5- B - 



CONTROLTASTEN 


0471 07 

RLCA 


;TASTENCODE * 2 

0472 CB 08 

RRC 

B 

; SHIFT? 

0474 30 01 

JR 

NC,0477 

;NEIN —> 

0476 3C 

INC 

A 

;JA, CODE+1 

0477 21 50 00 

LD 

HL,0050 

;TABELLENANFANG NACH HL 

047A 5F 

LD 

E,A 

;OFFSET=2 * TASTENCODE + SHIFT NACH DE 

047B 16 00 

LD 

D,00 

047D 19 

ADD 

HL.DE 

A, (HL) 

;OFFSET ADDIEREN 

047E 7E 

LD 

;CONTROLCODE ENTNEHMEN 

047P 21 18 40 

ENDABFRAGE 

LD HL.4018 

; MERKADRESSE FUER CONTROLTASTEN 

0482 CB 76 

BIT 

6,(HL) 

; MODSEL-TASTE WAR GEDRUECKT ? 

0484 28 24 

JR 

Z,04AA 

;NEIN, —> 

0486 EE 2B 

MODSEL 

GRAPHIKCODE ERMITTELN 

CP 

2B 

< 2B ? 

0488 38 20 

JR 

C,04AA 

NEIN, —> 

048A PE 30 

CP 

30 

>= 30 ? 

048C 30 04 

JR 

NC,0492 

JA, —> 

048E D6 2B 

SUB 

2B 

2B BIS 2F WIRD ZU 0 BIS 4 

0490 18 16 

JR 

04A8 

—> 

0492 PE 3B 

CP 

3B 

> ? 

0494 38 14 

JR 

C,04AA 

NEIN, —> 

0496 PE 5B 

CP 

5B 

<= 'Z' ? 

0498 30 04 

JR 

NC,049E 

NEIN, —> 

049A D6 36 

SUB 

36 

3B BIS 5A WIRD ZU 05 BIS 24 

049C 18 OA 

JR 

04A8 

—> 

049E PE 60 

CP 

60 

> 5A UND < 60 ? 

04A0 38 08 

JR 

C,04AA 

JA, —> 

04A2 PE 7B 

CP 

7B 

>= 7B ? 

04A4 30 04 

JR 

NC.04AA 

JA, —> 

04A6 D6 3B 

SUB 

3B 

60 BIS 7A WIRD ZU 25 BIS 40 

04A8 C6 CO 

ADD 

CO 

IN GRAPHIKCODE UMWANDELN 


ENDABFRAGE 


04AA 32 24 40 

LD 

(4024),A 

CODE RETTEN 

04AD 57 

LD 

D,A 

ASCII NACH D RETTEN 

04 AE 01 00 20 

LD 

BC,2000 

96.8 MS VERZOEGERUNG 

04B1 CD 60 00 

CALL 

0060 

04B4 7A 

LD 

A,D 

ASCIICODE ZURUECK NACH A 

04B5 PE OD 

CP 

OD 

RETURN ? 

04B7 28 07 

JR 

Z,04C0 

JA, —> 

04B9 PE 01 

CP 

01 

BREAK? 

04BB 28 03 

JR 

Z,04C0 

JA — > 

04BD CO 

RET 

NZ 

NEIN, ZURUECK 

04BE EP 

RST 

28 

RST 28H AUFRUFEN 

04BP C9 

04C0 21 18 40 

RET 

BREAK ODER RETURN 

LD HL.4018 

MERKADRESSE FUER CONTROLTASTEN 

04C3 CB B6 

RES 

6, (Hl) 

MERKER FUER GEDRUECKTE MODSEL-TASTE ZURUECKSETZEN 

04C5 PE 01 

CP 

BREAK ? 

04C7 18 P4 

JR 

04BD 

—> 

04C9 3E 40 

MODSEL-TASTE 

LD A.40 

BIT6 IN 4018 

04CB AE 

XOR 

(HL),A 

INVERTIEREN (UMSCHALTEN) 

04CC 77 

LD 

MODSEL AN/AUS ABSPEICHERN 

04CD AP 

XOR 

A 

A LOESCHEN 

04CE 18 DD 

JR 

04 AD 

—> 

04D0 CB PE 

CTRL-TASTE 

SET 7,(HL) 

BIT 7 IN 4018 SETZEN 

04D2 18 F9 

JR 

04CD 

—> 

04D4 3A 24 40 

REPEAT- 

LD 

TASTE 

A,(4024) 

LETZTE GEDRUECKTE TASTE 

04D7 18 A6 

JR 

047P 

—> 


NACHHOLROUTINE VON CURPOS 

04D9 ED 52 

SBC 

HL,DE 

CURSORADRESSE - BILDANFANGSADRESSE 

04DB 11 28 00 

LD 

DE,0028 

40 ZEICHEN / ZEILE 

04DE B7 

OR 

A 

CARRY LOESCHEN 

04DP ED 52 

SBC 

HL,DE 

ABZIEHEN 

04E1 30 PB 

JR 

NC,04DE 

NOCH NICHT NEGATIV —> 

04E3 19 

ADD 

HL,DE 

WIEDER AUPADDIEREN 

04E4 7D 

LD 

A,L 

CURSORPOSITION IN DER ZEILE 

04E5 El 

POP 

HL 

POINTER ZURUECK 

04E6 C9 

RET 

DRUCKERTREIBER 

ANSPRUNG NUR UEBER PRINT 

04E7 79 

LD 

A,C 

ZEICHEN RETTEN 

04E8 B7 

OR 

A 

=0? 

04E9 28 3E 

JR 

Z.0529 

JA, MIT DRUCKERSTATUS IN A ZURUECK 

04EB PE OB 

CP 

OB 

PF? WIRD IMMER AUSGEFUEHRT 

04ED 28 OA 

JR 

Z,04F9 

JA —> 

04EF PE OC 

CP 

OC 

PP? NUR WENN ANZAHL DER ZEILEN PRO ZEILE=0 

04P1 20 1B 

JR 

NZ,050E 

NEIN —> 

04P3 AP 

XOR 

A 

A=0 

04F4 DD B6 03 

OR 

(IX+03) 

ANZAHL DER ZEILEN PRO SEITE=0? 

04P7 28 15 

JR 

Z,050E 

JA, NORMALE AUSGABE 

04F9 DD 7E 03 

LD 

A,(IX+03) 

ANZAHL DER ZEILEN PRO SEITE-ZEILENNR. 

04PC DD 96 04 

SUB 

(IX+04) 

04FF 47 

LD 

B,A 

NACH B 

0500 CD 29 05 

CALL 

0529 

DRUCKER BEREIT? 
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Ltiiunw Lm 

JTL 

NZ,U500; 


0505 OE OA 

LD 

C,ÖA ; 

LF NACH C 

0507 CD 3C 05 

CALL 

053C . ; 

AUSGEBEN 

050A 10 P4 

DJNZ 

0500 ; 

WEITER BIS AUF NAECHSTER SEITE 

050C 18 16 

JR 

0524 ; 

ZEILENZAEHLER=0 ZURUECK 


NORMALE 

ZEICHENAUSGABE 

AUF DRUCKER 

050E CD 29 05 

CALL 

0529 

DRUCKER BEREIT? 

0511 20 PB 

JR 

NZ,050E 

NEIN, WARTEN 

0513 CD 3C 0^ 

CALL 

053C 

ZEICHEN AUSGEBEN 

0516 PE OD 

CP 

OD 

CR? 

0518 CO 

RET 

NZ 

NEIN, ZURUECK 

0519 DD 34 04 

INC 

(IX+04) N 

ZEILENNUMMER+1 

051C DD 7E 04 

LD 

A,(IX+04) 

ZEILENNUMMER=ANZAHL DER ZEILEN PRO SEITE? 

051P DD BE 03 

CP 

(IX+03) 


0522 79 

LD 

A,C 

ZEICHEN NACH A 

0523 CO 

RET 

NZ 

NEIN, ZURUECK 

0524 DD 36 04 00 

LD 

(IX+04),00 

JA, ZEILENNUMMER=0 

0528 C9 

RET 



UP 

PRTRDY 

(AP) 



TESTET, 

T. / ’ 

OB DRUCKER BEREIT 


0:Z=1, WENN DRUCKER BEREIT 

0529 3E 07 

LD 

A,07 

PSG REGISTER 7 

052B D3 F8 

OUT 

F8 

ANSPRECHEN UND 

052D 3E 7F 

LD 

A,7F 

I/O P0RT2 AUF 

052F D3 F9 

OUT 

F9 

EINGABE SETZEN 

0531 3E OP 

LD 

A,OF 

WERT VON 

0533 D3 F8 

OUT 

F8 

P0RT2 

0535 DB F9 

IN 

F9 

HOLEN 

0537 E6 EP 

AND 

EP 

BIT 7 HERAUSBLENDEN 

0539 PE 2F 

CP 

2F 

NOT BUSY —> Z=1 

053B C9 

RET 




ZEICHEN 

AUF DRUCKER AUSGEBEN 

053C 3E 07 

LD 

A,07 

PSG REGISTER 7 

053E D3 P8 

OUT 

F8 

ANSPRECHEN UND 

0540 3E 7P 

LD 

A,7F 

I/O PORTI AUF 

0542 D3 P9 

OUT 

P9 

AÜSGABE SETZEN 

0544 3E OE 

LD 

A,OE 

WERT AUF 

0546 D3 F8 

OUT 

P8 

PORTI 

0548 79 

LD 

A,C 


0549 D3 F9 

OUT 

P9 

AUSGEBEN 

054B 3E 07 

LD 

A,07 

PSG REGISTER 7 

054D D3 P8 

OUT 

P8 

ANSPRECHEN UND 

054P 3E PP 

LD 

A,PP 

BEIDE PORTS AUF 

0551 D3 P9 

OUT 

P9 

AUSGABE SETZEN 

0553 3E OP 

LD 

A,OP 

AUF PORT2 

0555 D3 P8 

OUT 

P8 


0557 AP 

XOR 

A 

0 

0558 D3 P9 

OUT 

F9 

AUSGEBEN 

055A 3E OP 

LD 

A,OP 

AUF PORT2 

055C D3 P8 

OUT 

P8 


055E 3E 01 

LD 

A,01 

1 

0560 D3 F9 

OUT 

F9 

AUSGEBEN 

0562 79 

LD 

A,C 

ZEICHEN ZURUECK 

0563 C9 

RET 




ENDE VON OUTCHF 


0564 PA 1F 02 

JP 

M,021 F 

CASSETTE? —> WRITEB 

0567 C2 9C 03 

JP 

NZ.039C 

PRINTER? —> DRUCKEN 

056A C3 3A 03 

JP 

033A 

BILDSCHIRMAUSGABE 


INITIALISIERUNG 


056D 31 P8 41 

LD 

SP.41P8 

STACKPOINTER LADEN 

0570 AP 

XOR 

A 

AUF PORT PP 

0571 D3 PP 

OUT 

PF 

0 AUSGEBEN 

0573 21 00 F4 

LD 

HL,P400 

SPEICHER FUER 

0576 11 01 F4 

LD 

DE,F401 

PROGRAMMIERBARE ZEICHEN 

0579 01 PP 03 

LD 

BC,03PP 

1024D ZEICHEN 

057C 36 00 

LD 

(HL),00 

MIT 0 

057E ED BO 

LDIR 


BESCHREIBEN (LOESCHEN) 

0580 OE FF 

LD 

C,PP 

PORT PP 

0582 ED 78 

INP 

A,(C) 

UEBERPRUEFEN 

0584 E6 08 

AND 

06 

BIT3? 

0586 47 

LD 

B,A 

FUER NTSC ODER PAL 

0587 D3 PC 

OUT 

PC 

ZUR UEBERPRUEFUNG 

0589 ED 78 

INP 

A, (C) 

WELCHE FARBTABELLE 

058B E6 08 

AND 

08 

GENOMMEN WIRD 

058D 21 11 37 

LD 

HL,3711 

=ANFANG PER 3 FARBTABELLEN 

0590 11 00 38 

LD 

DE,3800 

-ANFANG DER CRTC TAFEL 

0593 A8 

XOR 

B 

XOR VERKNUEPFUNG MIT B 

0594 00 

NOP 


WIRD NOCH NICHT GENUTZT 

0595 00 

NOP 



0596 D3 FD 

OUT 

PD 

UEBERPRUEFUNG DES PORTS PD 

0598 ED 78 

INP 

A, (C) 

WIRD AUCH NOCH NICHT GENUTZT 

059A E6 08 

AND 

08 

DA HARDWARE NOCH NICHT VORHANDEN 

059C 21 69 35 

LD 

HL,3569 

=ANFANGSZEIGER AUF BENUTZTE FARBTABELLE 

059P A8 

XOR 

B 

XOR VERKNUEPFUNG MIT B 

05ÄO 18 12 

JR 

05B4 

WIRD AUCH NOCH NICHT GENUTZT 

05A2 D3 PE 

OUT 

PE 

UEBERPRUEFUNG DES PORTS PE 

05A4 ED 78 

INP 

A, (C) 

ZUR AENDERUNG DER FARBTABELLE 

05A6 E6 08 

AND 

08 

WIRD Z.ZT. 

05A8 21 OA 37 

LD 

HI,,370A 

NOCH NICHT 

05AB A8 

XOR 

B 

ANGESPROCHEN 

05AC 20 06 

JR 

NZ,05B4 

DAHER HAT HL 

05AE 21 31 37 

LD 

HL,3731 

DEN WERT 3569 UND 

05B1 11 23 38 

LD 

DE,3823 

DE DEN WERT 3800 
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isazi 




' PUSH- 

HL 

' ANI'ANUm'RT FÄRBfABELLE' RETTEIT- 

05B5 

EB 



EX 

DE, HL 

HL=5800 (CRTC-PAL-TAFEL) 

05B6 

11 

PO 

42 

LD 

DE,42F0 

CRTC-TAPEL IM RAM 

05B9 

01 

25 

00 

LD 

BC,0025 

WERTE WERDEN 

05BC 

ED 

BO 


LDIR 

UEBERTRAGEN 

05BE 

El 



POP 

HL 

=AITPANGSWERT PARBT ABELT,E 

05BF 

11 

90 

45 

LD 

DE,4590 

PARBTABELLE IM RAM 

05C2 

01 

10 

00 

LD 

BC,0010 

WERTE WERDEN 

05C5 

ED 

BO 


LDIR 


UEBERTRAGEN 

05C7 

C5 

6C 

00 

JP 

006C 

WEITER INITIALISIEREN 

05 CA 

AP 



XOR 

A 

A LOESCHEN 

05CB 

D5 

ED 


OUT 

ED 

RESET EUER PDC (ENTFAELLT AB AUGUST 85) AUSGEBEN 

05 CD 

5A 

04 

F8 

LD 

A,(P804) 

IST R-TASTE 

05 DO 

CB 

57 


BIT 

2 ,A 

GEDRUECKT ? 

05D2 

C2 

00 

00 

JP 

NZ,0000 

06C0 

JA —> 

05D5 

C5 

CO 

06 

JP 

NEIN —> 











UP 

INBUPP 

(AP,BC,DE=401 D) 





EINGABE 

EINER ZEILE IN DEN BUPPER 





I:B=MAXIMALE ANZAHL DER EINZUGEBENDEN ZEICHEN 

HL=BUFFERANFANGSADRESSE 

0:B=ANZAHL DER TATSAECHLICH EINGEGEBENEN ZEICHEN 





C=MAXIMALE ANZAHL DER EINZUGEBENDEN ZEICHEN 

05D9 

E5 



PUSH 

HL 

BUFFERANFANG RETTEN 

05DA 

5E 

OE 


LD 

A,OE 

CURSOR ON 

05DC 

CD 

55 

00 

CALL 

0055 


05DP 

48 



LD 

C,B 

MAX EINGABEZEICHEN NACH C 

05E0 

C5 

00 

50 

JP 

5000 

WEITER —> 

05E5 

PE 

20 


CP 

20 

CONTROLCODE? 

05E5 

50 

25 


JR 

NC,060C 

NEIN 

05E7 

PE 

OD 


CP 

OD 

ENTER? 

05E9 

CA 

62 

06 

JP 

Z ,0662 

JA 

05EC 

PE 

1P 


CP 

1F 

CLEAR? 

05EE 

28 

29 


JR 

Z,0619 

01 

JA 

05E0 

PE 

01 


CP 

BREAK? 

05P2 

28 

6D 


JR 

Z,0661 

JA 

05P4 

11 

EO 

05 

LD 

DE,05E0 

RUECKSPRUNGADRESSE SETZEN (NAECHSTES ZEICHEN) 

05P7 

D5 



PUSH 

DE 

05 PB 

PE 

08 


CP 

08 

BACKSPACE? 

05PA 

28 

54 


JR 

Z,0650 

18 

JA 

05PC 

PE 

18 


CP 

CLEAR INPUT? 

05PE 

28 

2B 


JR 

Z.062B 

09 

JA 

0600 

PE 

09 


CP 

TAB? 

0602 

28 

42 


JR 

Z,0646 

19 

JA 

0604 

PE 

19 


CP 

52 CPL“? 

0606 

28 

59 


JR 

Z.0641 

JA 

0608 

PE 

OA 


CP 

OA 

LP? 

060A 

CO 



RET 

NZ 

NEIN, NAECHSTES ZEICHEN 

060B 

Dl 



POP 

DE 

RUECKSPRUNGADRESSE ENTFERNEN 

060C 

77 



LD 

(hl),a 

ZEICHEN IN BUPPER 

060D 

78 



LD 

A,B 

ZEICHENZAEHLER=0? 

060E 

B7 



OR 

A 


060P 

28 

CP 


JR 

Z,05E0 

JA, NAECHSTES ZEICHEN 

0611 

7E 



LD 

k (SL) 

ZEICHEN AUS BUPPER 

0612 

25 



INC 

BUPPERZ. INC. 

0615 

CD 

55 

00 

CALL 

0055 

ZEICHEN AUSGEBEN 

0616 

05 



DEC 

B 

ZEICHENZAEHLER - 1 

0617 

18 

C7 


JR 

05E0 

NAECHSTES ZEICHEN 





CLEAR 



0619 

CD 

C9 

01 

CALL 

01C9 

BILDSCHIRM LOESCHEN 

061C 

41 



LD 

B,C 

MAX ZEICHENANZAHL NACH B ZURUECK 

061D 

El 



POP 

HL 

BUFFERANFANG ZURUECK 

06 IE 

E5 



PUSH 

HL 

UND WIEDER RETTEN 

061P 

C5 

EO 

05 

JP 

05E0 

NEUE EINGABE 





CLEAR INPUT 


0622 

CD 

50 

06 

CALL 

0650 

BACKSPACE 

0625 

2B 



DEC 

HL 

NAECHSTES ZU LOESCHENDE ZEICHEN = LP? 

0626 

7E 



LD 

A, (HL) 


0627 

25 



INC 

HL 


0628 

PE 

OA 


CP 

OA 


062A 

C8 



RET 

Z 

JA, FERTIG 

062B 

78 



LI) 

A,B 

LETZTES ZEICHEN GELOESCHT? 

062C 

B9 

F5 


CP 

C 

(MAX ZEICHENZAHL = ZEICHENZAEHLER)? 

06 2D 

20 


JR 

NZ,0622 

NEIN, WEITER 

06 2P 

C9 



RET 







BACKSPACE 


0650 

78 



LD 

A.B 

ZEICHEN IN BUFFER? 

0651 

B9 



CP 

C 


0652 

C8 



RET 

z 

NEIN, FERTIG 

0655 

2B 



DEC 

HL 

ZU LÖESCHENDES ZEICHEN LP? 

0654 

7E 



LD 

A,(HL) 


06 56 

PE 

OA 


CP 

OA 


0657 

25 



INC 

HL 


0658 

C8 



RET 

Z 

JA, FERTIG 

0659 

2B 



DEC 

HL 

BUFFERZEIGER DSC. 

06 jA 

5E 

08 


LD 

A,08 

BACKSPACE AUSGEBEN 

065C 

CD 

55 

00 

CALL 

0055 


065P 

04 



INC 

B ; 

ZEICHENZAEHLER + 1 

0640 

C9 



RET 



0641 




52 CPL 



5E 

17 


LD 

A, 17 ; 

AUF 52 CPL UMSCHALTEN 

0645 

C5 

55 

00 

JP 

0055 
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-TSB- 


Ob46 

0649 

064B 

064C 

064D 

064P 

0650 

0651 

0652 

0653 

0655 

0656 

0657 

0658 

065B 

065C 

065D 

065E 

065P 


CD 

48 

03 

CALL 

0348 

CURSORPOSITON NACH A 


E6 

07 


AND 

07 

MOD 8, ERGIBT ZEICHEN 

SEIT LETZTER TAB POSITION 

2F 



CPL 


VON 8 ABZIEHEN ERGIBT 

ANZAHL DER EINZUFUEGENDEN SPACES 

3C 



INC 

A 



C6 

08 


ADD 

08 



5F 



LD 

E,A 

NACH E 


78 



LD 

A,B 

BUFFER VOLL? 


B7 



OR 

A 



C8 



RET 

Z 

JA, FERTIG 


3E 

20 


LD 

A,20 

(HL),A 

SPACE NACH A 


77 



LD 

IN BUFFER 


23 



INC 

HL 

BUFFERZ. INC. 


D5 



PUSH 

DE 

DE RETTEN 


CD 

33 

00 

CALL 

0033 

AUSGEBEN 


Dl 


POP 

DE 

DE ZURUECK 


05 



DEC 

B 

ZEICHENZAEHLER DEC. 


ID 



DEC 

E 

SPACEANZAHL DEC. 


C8 



RET 

Z 

RET, WENN 0 


18 

EF 


JR 

0650 

WEITER 



0661 37 


0662 F5 
0663 3E 
0665 77 
0666 CD 
0669 3E 
066B CD 
066E 79 
066P 90 
0670 47 
0671 Fl 
0672 El 
0673 C9 


0674 3E 
0676 D3 
0678 32 
067B 21 
067E 11 
0681 01 
0684 ED 
0686 3D 
0687 3D 
0688 20 
068A 06 
068C 12 
068D 13 
068E 10 



BREAK 




SCF 


FLAG SETZEN (C=1) 


ENTER 




PUSH 

AF 

FLAG RETTEN 

OD 

LD 

A,OD 

CR IN AKKU 


LD 

(HL),a 

IN BUFFER 

33 00 

CALL 

0033 ;AUSGEBEN 

ÖF 

LD 

A,OF 

CURSOR OFF 

33 00 

CALL 

0033 



LD 

A,C 

MAX ANZAHL - ZEICHENZAHLER 


SUB 

B 



LD 

B,A 

ERGIBT ANZAHL DER EINGEGEBENEN ZEICHEN IN 


POP 

AF 

FLAG ZURUECK 


POP 

HL 

BUFFERANFANG ZURUECK 


RET 




SYSTEMINITIALISIERUNG 



JCB. RST-VEKTOREN IN RAM UEBERTRAGEN 

08 

LD 

A,08 

A = 8 (BIT3 GESETZT) 

FF 

OUT 

FF 

PORT ZURUECKSETZEN 

IC 43 

LD 

(431C),A 

PORT FF MERKER SETZEN 

D2 06 

LD 

HL,06D2 

ADRESSE DES BLOCKS IM ROM (QUELLADRESSE) 

00 40 

LD 

DE,4000 

ZIELADRESSE IM RAM 

36 00 

LD 

BC,0036 

BLOCKLAENGE = 36 

BO 

LDIR 


BLOCKTRANSFER 


DEC 

A 

4D MAL 


DEC 

A 


Fl 

JR 

NZ,067B 

WIEDERHOLEN 

27 

LD 

B,^7 

DIE FOLGENDEN 27 BYTE LOESCHEN 


LD 

(DE),A 

(4036-405C) 


INC 

DE 


FC 

DJNZ 

068C 



0690 21 AB 34 
0693 11 50 43 
0696 01 38 00 
0699 ED BO 
069B 3E 01 
069D 32 14 43 
06A0 21 30 39 
06A3 22 8C 43 
06A6 21 DB 39 
06A9 22 8E 43 
06AC C3 6D 05 


WEITERE INITIALISIERUNG 


LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 

LD 

LD 

JP 


HL,34AB 
DE,4350 
BC,0038 

A,01 

(43U),A 

HL,393° 

(438C),HL 

HL,39DB 

(438E),HL 

0530 


ZEIGER AUF FKEY-TEXT NACH HL 

ZIELADRESE IM RAM 

LAENGE NACK EC 

FKEY'S BELEGEN 

1 ALS SCALE- 

FAKTOR VORBESETZEN 

ADRESSE DER ZUSATZBEFEHLE 

UND ABSPEICHERN 

ADRESSE DER ZUSATZSPRUNGTAFEL 

ABSPEICHERN 

WEITER —> 


06 AF 

3A 

00 

CO 

06B2 

FE 

43 


06B4 

CA 

01 

CO 

06B7 

3A 

00 

CO 

06BA 

FE 

44 


06BC 

CA 

01 

CO 

06BF 

C9 



06C0 

3A 

00 

CO 

06C3 

FE 

43 


06C5 

CA 

01 

CO 

06 C8 

C3 

AE 

19 

06 CB 

FF 

FF 

FF 


06D2 

C3 96 

IC 

06D5 

C3 78 

ID 

06 D8 

C3 90 

IC 

06DE 

C3 D9 

25 

06DE 

C9 


06DF 

00 


06E0 

00 


06E1 

C9 


06E2 

00 


06E3 

00 


06E4 

FB 


06E5 

C9 



PRUEFT 

AUF CARTRIDGE UND DOS 

LD 

A,(COOO) 

CARTRIDGE 

CP 

43 

VORHANDEN ? 

JP 

Z,C001 

JA —> ANSPRINGEN 

LD 

A,(COOO) 

DISK BASIC 

CP 

44 

VORHANDEN ? 

JP 

RET 

Z,C001 

JA —> ANSPRINGEN 

PRUEFT 

CARTRIDGE 


LD 

A, (COOO) 

CARTRIDGE 

CP 

43 

VORHANDEN ? 

JP 

Z,C001 

JA —> ANSPRINGEN 

JP 

19 AE 

SONST TEILINITIALISIERUNG 

FF FF 

FF 

7 BYTES FREI 


DATEN ZUM TRANSFER IN RAM 
RESTART-VEKTOREN 


JP 

1C96 

;RST 

08-VEKTOR 

JP 

1D78 

;RST 

10-VEKTOR 

JP 

1C90 

;RST 

18-VEKTOR 

JP 

25D9 

;RST 

20-VEKTOR 

RET 

NOP 

NOP 

;RST 

28-VEKTOR 

RET 

NOP 

NOP 


;RST 

30-VEKTOR 

EI 

RET 


;RST 

38-VEKTOR 
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D5E5T5Ö NUP “ 


DCB'S 

KEYBOARD-DCB 


06E7 

01 



DCB-TYP 

06E8 

E3 

03 


TREIBERADRESSE 

06EA 

00 

07 40 



06ED 

20 

49 


KI 




DISPLAY-DCB 


06EP 

07 



DCB-TYP 

06F0 

E4 

30 


TREIBERADRESSE 

06P2 

00 

44 


CURSORADRESSE 

06P4 

01 




06P5 

01 

03 


DO 




PRINTER-DCB 


06P7 

06 



DCB-TYP 

06F8 

E7 

04 


TREIBERADRESSE 

06PA 

43 



ZEILEN/SEITE 

06PB 

00 



ZEILENZAEHLER 

06 PC 

00 



UNBENUTZT 

06PD 

50 

52 


PR 

06FF 

C3 

00 50 

JP 5000 

N. V. (UNTER DOS 

0702 

CY 


RST 00 


0703 

00 


NOP 


0704 

00 


NOP 





WIRD VON CALL BEI FALSCHEM BIT IN DCB- 

0705 

3E 

00 

LD A,00 

> 

h 

o 

0707 

C9 


RET 



UP 


0708 21 80 13 


UP 


070B CD C2 09 
070E 18 06 


0710 CD C2 09 


0713 CD 82 09 


SINGLE PRECISION ARITHMETIK 
SADD2 (AF,BC,DE,HL) 

SINGLEADDITION: Z = ZI +0.5 
I :X=SUMMAND 
0:X=SUMME 

LD HL,1380 ;ADRESSE DER KONSTANTE 0.5 IM ROM 

SADDC (AF,BC,DE,HL) 

SINGLEADDTION: Z = C + 

I :X=SUMMAND 

HL=ZEIGER AUE SUMMANDEN 
0:X=SUMME 

CALL 09C2 ;KONSTANTE (HL..) NACH Y 

JR 0716 ;SPRUNG ZUR ADDITION 


ZI 


UP 


SSUBC (AP,BC,DE,HL) 
SINGLESUBTRAKTION: Z = C - ZI 
I:X=SUBTRAHEND 

HL=ZEIGER AUE MINUENDEN 
0:X=DIPPERENZ 

CALL 09C2 ;KONSTANTE (HL. 


) NACH Y 


UP 


SSUBY (AP,BC,DE,HL) 
SINGLESUBTRAKTION: Z = Z2 - ZI 
I:X=SUBRAHEND 
Y=MINUEND 
0:X=DIPPERENZ 
CALL 0982 ;ZI 


= -ZI 


UP SADDY (AP,BC,DE,HL) 


SINGLEADDITION: 
I:X=SUMMAND 
Y=SUMMAND 


Z = Z2 + ZI 






0:X= 

SUMME 


0716 

78 



LD 

A,B 

;Z2 = 0? (EXP Y = 0) 

0717 

B7 



OR 

A 


0718 

C8 



RET 

Z 

;JA, FERTIG, Z=Z1 

0719 

3A 

24 

41 

LD 

A,(4124) 

ZI = 0? (EXP X = 0) 

071C 

B7 



OR 

A 


071D 

CA 

B4 

09 

JP 

Z,09B4 

JA, FERTIG, Z=Z2 (Y NACH X) 

0720 

90 



SUB 

B 

EXP ZI - EXP Z2 NACH A, EXP Z2 

0721 

30 

OC 


JR 

NC,072F 

JA 

0723 

2F 



CPL 


-EXP DIP NACH A 

0724 

3C 



INC 

A 

UND ZI UND Z2 VERTAUSCHEN 

0725 

EB 



EX 

DE,HL 

HL NACH DE RETTEN 

0726 

CD 

A4 

09 

CALL 

09A4 

X AUF STACK 

0729 

EB 



EX 

DE,HL 

HL ZURUECK 

072A 

CD 

B4 

09 

CALL 

n 09B4 

Y NACH X 

072D 

CI 



POP 

BC 

STACK NACH Y 

072E 

Dl 



POP 

DE 


072P 

PE 

19 


CP 

19 

EXP DIP > MANTISSENLANGE? (24D 

0731 

DO 



RET 

NC 

NEIN, Z = X, FERTIG 

0732 

F5 



PUSH 

AP 

EXP DIP RETTEN 

0733 

CD 

DP 09 

CALL 

09DF 

SIGN-BITS DURCH 1 ERSETZEN, A7 

0736 

67 



LD 

H,A 

SIGNFLAG RETTEN 

0737 

PI 



POP 

AP 

EXP DIP ZURUECK 

0738 

CD 

D7 

07 

CALL 

07D7 

Y UM DIESE ANZAHL NACH RECHTS 

073B 

B4 



OR 

H 

VORZEICHEN GLEICH? 

073C 

21 

21 

41 

LD 

HL,4121 

LSB X-ADRESSE NACH HL 

073F 

F2 

54 

07 

JP 

P,Ö754 

NEIN, SUBTRAKTION 





ADDITION DER MANTISSEN 

0742 

CD 

B7 

07 

CALL 

07B7 

MANTISSENADDITION, UEEERLAUF? 

0745 

D2 

96 

07 

JP 

NC,0796 

NEIN 

0748 

23 



INC 

HL 

ZEIGER AUF EXP X 

0749 

34 



INC 

(HL) 

EXP X + 1, UEBERLAUP? 


SONST 0 
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074* 

CA 

vr 

vi - 

JT- 

~Z7Ö7B2- 

J'A',' 'UV-EKKUK 

074D 

2E 

01 


LD 

L,01 ; 

MANTISSE VON X UM EIN BIT RECHTS SCHIEBEN 

074P 

CD 

EB 

07 

CALL 

07EB 


0752 

18 

42 


JR 

0796 ; 

FERTIG 





SUBTRAKTION DER MANTISSEN 

0754 

AF 



XOR 

A ; 

MY - MX NACH MY. NIEDERWERTIGSTES BYTE SUBTRAHIEREN 

0755 

90 



SUB 

B ; 

(DURCH VERSCHIEBEN ENTSTANDEN) 

0756 

47 



LD 

B,A ; 

ERG 

0757 

7E 



LD 

A,(HL) ; 

LSB 

0758 

9B 



SBC 

E 


0759 

5F 



LD 

E,A 


075A 

23 



INC 

HL ; 

ZEIGER INC. 

075B 

7E 



LD 

A,(HL) ; 

LSB 

075C 

9A 



SBC 

D 


075D 

57 



LD 

D,A 


075E 

23 



INC 

HL ; 

ZEIGER INC 

075P 

7E 



LD 

A,(HL) 

MSB 

0760 

99 



SBC 

C 


0761 

4F 



LD 

C, A 

UNTERLAUF? 

0762 

DC 

C3 

07 

CALL 

C,07C3 

JA, MY = -MY, SIGN-FLAG INVERTIEREN 





NORMALISIERUNG 


0765 

68 



LD 

L,B 

CDEB (Y + B) NACH CDHL 

0766 

63 



LD 

H,E 

0767 

AF 



XOR 

A 

A=0 

0768 

47 



LD 

B,A 

VERSCHIEBUNGSZAEHLER=0 

0769 

79 



LD 

A,C 

MSB Y = 0? 

076A 

B7 



OR 

A 


076B 

20 

18 


JR 

NZ.0785 

NEIN 

076D 

4A 



LD 

C,D 

Y UM EIN BYTE LINKS SCHIEBEN: D NACH C 

076E 

54 



LD 

D,H 

H NACH D 

076F 

65 



LD 

H,L 

L MACH H 

0770 

6F 



LD 

L,A 

L = 0 

0771 

78 



LD 

A,B 

VERSCHIEBUNGSZAEHLER - 8 

0772 

D6 

08 


SUB 

08 

32 LINKSVERSCHIEBUNGEN (D.H. ZAHL =0)? 

0774 

FE 

EO 


CP 

EO 

0776 

20 

FO 


JR 

NZ,0768 

NEIN 




UP 

RNULL 

(AF=0044) 






REELLE 

ZAHL = 0 






I:/ 

0:X=0 



0778 

AF 



XOR 

A 

A - 0 

0779 

32 

24 

41 

LD 

(4124),A ;EXP X = 0 (D.H. X =0 ) 

077C 

C9 



RET 





NORMALISIERUNG 2 


077D 

05 



DEC 

B 

VERSCHIEBUNGSZAEHLER - 1 

077E 

29 



ADD 

HL.HL 

CDHL EIN BIT LINKS SCHIEBEN: HL * 2 

077F 

7A 



LD 

k,i 

D * 2 

0780 

17 



RLA 



0781 

57 



LD 

D,A 


0782 

79 



LD 

A, C 

C * 2 

0783 

8F 



ADC 

A 


0784 

4P 



LD 

C, A 

MSB Y7 GESETZT? 

0785 

F2 

7D 

07 

JP 

P,077D 

NEIN WEITER 

0788 

78 



LD 

A,B 

VERSCHIEBUNGZAEHLER NACH A 

0789 

5C 



LD 

E,H 

CDHL WIEDER NACH CDEB 

078Ä 

45 



LD 

B,L 


078B 

B7 



OR 

A 

KEINE VERSCHIEBUNG? 

078C 

28 

08 


JR 

Z.0796 

JA 

078E 

21 

24 

41 

LD 

HL,4124 

EXP X-ADRESSE NACH HL 

0791 

86 



ADD 

(HL) 

VERSCHIEBUNGEN + EXP X 

0792 

77 



LD 

(hl),a 

ALS EXP X, UNTERLAUF? 

0793 

30 E3 


JR 

NC,0778 

JA, X=0, RET 

0795 

C8 



RET 

Z 

VERSCHIEBUNGEN = EXP X? —> JA, X=0, RET 

0796 

78 



LD 

A,B 

LSB Y LADEN 

0797 

21 

24 

41 

LD 

HL,4124 

ZEIGER AUF EXP X 

079A 

B7 



OR 

A 

LSB Y7 = 0? 

079B 

FC 

A8 

07 

CALL 

M,07A8 

NEIN, Y RUNDEN 

079E 

46 



LD 

b,(hl) 

EXr X NACH EXP Y 

079F 

23 



INC 

HL 

ZEIGER AUF -SIGN Z 

07 AO 

7E 



LD 

A,(HL) 

LADEN 

07A1 

E6 

80 


AND 

80 

SIGN HERAUSBLENDEN 

07 A3 

A9 



XOR 

C 

MIT MSB Y VERKNUEPFEN (DADURCH INVERT.) 

07 A4 

4P 



LD 

C,A 

UND NACH MSB Y 

07A5 

C3 

B4 

09 

JP 

09B4 

Y NACH X ALS ERG (Z) 





RUNDUNG 


07 A8 

IC 



INC 

E 

LSB Y + 1, =0? 

07A9 

CO 



RET 

NZ 

NEIN 

07 AA 

14 



INC 

D 

LSB Y + 1, =0? 

07 AB 

CO 



RET 

NZ 

NEIN 

07 AC 

OC 



INC 

C 

MSB Y + 1. =0? 

07 AD 

CO 



RET 

NZ 

NEIN 

07 AE 

OE 

80 


LD 

C ,80 
(HL) 

JA, MST = 80 

07B0 

34 



INC 

EXP X + 1, = 0? 

07B1 

CO 



RET 

NZ 

HEIN 


OV-ERROR 

07B2 IE OA LD E.OA ;OV-ERROR-CODE NACH E 

07B4 C3 A2 19 JP 19A2 ;ZUR ERROR-ROUTINE 


UP SMADDY (AF,C,DE,HL+2) 
SINGLEMANTISSENADDITION 
I:MX=SUMMAND 

HL=ZEIGER AUE LSB X 
MY=SUMMAND 


Seite 18 











RPM-Listing für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke & Luidger 



ÖTMY 

=SÜMME- 


07B7 7E 

LD 

A,(HL) 

;LSB X NACH A 

07B8 83 

ADD 

E 

;LSB Y ADDIEREN 

07B9 5F 

LD 

E.A 

;ERG NACH LSB Y 

07BA 23 

INC 

E 

;ZEIGER INC. 

07BB 7E 

LD 

a,(hl) 

;DERGL. 

07BC 8A 

ADC 

D 


07BD 57 

LD 

D,A 


07BE 23 

INC 



07BF 7E 

LD 

A, (HL) 

;DERGL. MIT MSB 

07C0 89 

ADC 

C 


07C1 4F 

LD 

C,A 


07C2 C9 

RET 




MY = 

-MY 


07C3 21 25 41 

LD 

HL,4125 

;SIGN-FLAG INVERTIEREN 

07C6 7E 

LD 

a,(hl) 


07C7 2F 

CPL 



07C8 77 

LD 

(hl),a 


07C9 AF 

XOR 

A 

;A = 0 

07CA 6F 

LD 

L,A 

;L = 0 

07CB 90 

SUB 

B 

;LSB Y = 0 - LSB Y 

07CC 47 

LD 

B,A 


07CD 7D 

LD 

A,L 

y DERGL. 

07CE 9B 

SBC 

E 


07CF 5F 

LD 

E,A 


07D0 7D 

LD 

A,L 

;DERGL. 

07D1 9A 

SBC 

D 


07D2 57 

LD 

D,A 


07D3 7D 

LD 

A,L 

;DERGL. MIT MSB 

07D4 99 

SBC 

C 


07D5 4F 

LD 

C,A 


07D6 C9 

RET 




UP SRYR (A=0,P.BC,L=0) 

SCHIEBT SINGLEZAHL UM A BITS RECHTS 
I:Y=ZAHL 

A=ANZAHL DER VERSCHIEBUNGEN 
0:Y=ZAHL 

B=ZUSAETZLICHES NIEDERWERTIGSTES BYTE 


07D7 

06 00 

LD 

B.00 

07D9 

D6 08 

SUB 

08 

07DB 

38 07 

JR 

C,07E4 

07DD 

43 

LD 

B,E 

07DE 

5A 

LD 

E,D 

07DF 

51 

LD 

D,C 

07E0 

OE 00 

LD 

C.00 

07E2 

18 F5 

JR 

07D9 

07E4 

C6 09 

ADD 

09 

07E6 

6F 

LD 

L,A 

07E7 

AF 

XOR 

A 

07E8 

2D 

DEC 

L 

07E9 

C8 

RET 

Z 

07EA 

79 

LD 

A,C 

07EB 

1F 

RRA 


07EC 

4F 

LD 

C,A 

07ED 

7A 

LD 

A,D 

07EE 

1F 

RRA 


07EF 

57 

LD 

D.A 

07F0 

7B 

LD 

a;e 

07F1 

1F 

RRA 


07F2 

5F 

LD 

E,A 

07F3 

78 

LD 

A,B 

07F4 

1F 

RRA 


07F5 

47 

LD 

B.A 

07F6 

18 EF 

JR 

07E7 


LSB = 0 

NOCH 8 ODER MEHR VERSCHIEBUNGEN? 
NEIN 

Y UM EIN BYTE NACH RECHTS SCHIEBEN: 

D NACH E 

C NACH D 

LSB Y =0 

WEITER 

VERSCHIEBUNGEN + 1 NACH L 

CARRY LOESCHEN 
VERSCHIEBUNG - 1, FERTIG? 

JA 

MSB Y / 2 


;DERGL• 


!DERGL. 


;DERGL. MIT LSB 


;WEITER 


KONSTANTE 

07F8 00 00 00 81 


1 


KONSTANTEN FUER LOG 

07FC 03 

07ED AA 56 19 80 
0801 Fl 22 76 80 
0805 45 AA 38 82 


3 STUECK 

= 0.598979 = CA. 2 * SQR (2) / 5 
= 0.961471 = CA. 2 * SQR (2) / 3 
= 2.88539 = CA. 2 * SQR (2J / 1 


UP LOG (AF,BC,DE,HL) 

** LOG-FUNKTION 

BERECHNET NATUERLICHEN LOGARITHMUS 

I:X=ARGUMENT 

0:X=FÜNKTI0NSWERT 


0809 

CD 

55 

09 

CALL 

0955 

080C 

B7 



OR 

A 

080D 

EA 

4A 

IE 

JP 

PE.1E4A 

0810 

21 

24 

41 

LD 

HL.4124 

0813 

7E 



LD 

A,(HL) 

0814 

01 

55 

80 

LD 

BC,8035 

0817 

11 

F3 

04 

LD 

DE,04F3 

081A 

90 



SUB 

B 

081B 

F5 



PUSH 

AF 

081C 

70 



LD 

(hl),b 

081D 

D5 



PUSH 

DE 

081E 

C5 



PUSH 

BC 





X = 

(ARG - SQR 

081F 

CD 

16 

07 

CALL 

0716 

0822 

CI 



POP 

BC 

0823 

Dl 



POP 

DE 

0824 

04 



INC 

B 


;ARGUMENT <= 0? 

;JA, FC-ERROR 

;EXPONENTEN DES ARGUMENTES ABTRENNEN: 
;EXP X NACH A 

;Y = 0.707107 (=SQR (2) / 2) 

;EXP X - OFFSET NACH A 
;UND RETTEN 
;EXP X = 0 
;Y RETTEN 


2) / ( ARG + SQR (2) / 2) 
;X = X + 0.707107 
;KONSTANTE ZURUECK 

;EXP Y + 1 (Y = SQR (2)) 


Röckrath 


NACH B 


EXP X-ZEIGER 
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082|? 

inr 

A2 



CALL- 

~UBK2 - 

SUR (2) / X NACH" X- 


0828 

21 

F8 

07 


LD 

HL.07P8 

0710 

ZEIGER AUF KONSTANTE 1 


082B 

CD 

10 

07 


CALL 

1 - X NACH X 







REIHE BERECHNEN 



082E 

21 

PC 

07 


LD 

>o 

^1 

o 

ZEIGER AUF REIHENKOEFFIZIENTEN 


0831 

CD 

9A 

14 


CALL 

REIHE BERECHNEN 







KORREKTUR DES ERGEBNIS NACH ERG = ( REIHE - 0.5 + EXP ARG ) 

* LOG (2) 

0834 

01 

80 

80 


LD 

BC,8080 ; 

Y = - 0.5 


0837 

11 

00 

00 


LD 

DE,0000 

0716 



083A 

CD 

16 

07 


CALL 

X = X - 0.5 


083D 

PI 




POP 

AP 

EXP ARG ZURUECK 


083E 

CB 

89 

OP 


CALL 

0F89 

X = X + A 






UP 

SMLTL2 

(AP.BC.DE,HL) 








SINGLEMÜLTIPLIKATION MIT LOG (2) 







I:X=ZAHL 

0:X=ZAHL 

Y = LOG (2) 


0841 

01 

31 

80 


LD 

BC,8031 


0844 

11 

18 

72 


LD 

DE,7218 






UP 

SMLTY 

(AP.BC.DE,HL) 








SINGLEMULTIPLIKATION: 

I:X=FAKTOR 

Y=FAKTOR 

0:X=PRODUKT 

Z = ZI * Z2 


0847 

CD 

55 

09 


CALL 

0955 

ZI = 0? 


084A 

C8 




RET 

Z 

JA, Z=Z1 


084B 

2E 

00 



LD 

L,00 

FLAG FUER EXPONENTENVERARBEITUNG FUER 

SMLT 

084D 

CD 

14 

09 


CALL 

0914 

EXPONENTEN UND VORZEICHEN VERARBEITEN 


0850 

79 




LD 

A,C 

(414P),A 

MZ2 (IN Y) NACH (41AF).. 


0851 

32 

4P 

41 


LD 

MSB 


0854 

EB 




EX 

DE,HL 
(4150),HL 

LSB 


0855 

22 

50 

41 


LD 

Y = ERGEBNISREGISTER (Z) LOESCHEN 


0858 

01 

00 

00 


LD 

BC,0000 


085B 

50 




LD 

D,B 


085C 

58 




LD 

E,B 



085D 

21 

65 

07 


LD 

HL,0765 

SCHLEIFE FUER 3 BYTE DER MANTISSE DURCH RUECKSPRUNGADRESSEN DEF 

0860 

E5 




PUSH 

HL 

NACH 3.MAL ZUR NORMALISIERUNG 


0861 

21 

69 08 


LD 

HL,0869 

2. MAL NORMAL WIEDERHOLEN 


0864 

E5 




PUSH 

HL 



0865 

E5 




PUSH 

HL 



0866 

21 

21 

41 


LD 

HL,4121 

A,(HL) 

ZEIGER AUF LSB ZI 


0869 

7E 




LD 

BYTE LADEN 


086A 

23 




INC 

HL 

ZEIGER AUF NAECHSTES BYTE 


086B 

B7 




OR 

A 

BYTE = 0 ? 


086C 

28 

24 



JR 

Z,0892 

HL 

JA, ERGEBNIS UM 1 BYTE RECHTS 


086E 

E5 




PUSH 

ZEIGER RETTEN 


086P 

2E 

08 



LD 

L,08 

BITZAEHTjER = 8 


0871 

1F 




RRA 


NAECHSTES BIT IN CARRY, GESETZT? 


0872 

67 




LD 

H,A 

BYTE NACH H 


0873 

79 




LD 

A,C 

MSB ERG LADEN FUER SCHIEBEOPERATION 


0874 

30 

OB 



JR 

NC,0881 

NEIN, SOFORT SCHIEBEN 


0876 

E5 




PUSH 

HL 

BYTE RETTEN 


0877 

2A 

50 41 


LD 

HL,(4150) 

MZ2 AUF ERGEBNIS ADDIEREN (LSB) 


087A 

19 




ADD 

HL,DE 



087B 

EB 




EX 

DE, HL 



087C 

El 




POP 

HL 

BYTE ZURUECK 


087D 

3A 

4P 41 


LD 

A,(414P) 

MSB 


0880 

89 




ADC 

C 

ERG UM 1 BIT RECHTS SHIEBEN: MSB / 2 


0881 

1F 




RRA 



0882 

4F 




LD 

C,A 


0883 

7A 




LD 

A,D 

DERGL. 


0884 

1F 




RRA 




0885 

57 




LD 

D,A 



0886 

7B 




LD 

A,E 

DERGL. 


0887 

1F 




RRA 




0888 

5F 




LD 

E,A 



0889 

78 




LD 

A,B 

DERGL. 


088A 

1F 




RRA 




088B 

47 




LD 

B,A 



088C 

2D 




DEC 

L 

BITZAEHLER DEC., FERTIG? 


088D 

7C 




LD 

A,H 

BYTE NACH A 


088E 

20 

El 



JR 

NZ,0871 

NEIN 


0890 

El 




POP 

HL 

JA, ZEIGER ZURUECK, WEITER 


0891 

C9 




RET 




0892 

43 




LD 

B,E 

ERG EIN BYTE NACH RECHTS SCHIEBEN: E 

NACH B 

0893 

5A 




LD 

E,D 

D NACH E 


0894 

51 




LD 

D,C 

C NACH D 


0895 

4P 




LD 

C,A 

C - 0 


0896 

C9 




RET 








UP 

SDIV10 

(AP.BC.DE,HL) 








SINGLEDIVISON DURCH 10D 







I:X=ZAHL 

0:X=ZAHL 



0897 

CD 

A4 

09 


CALL 

09 A4 

ZAHL RETTEN 


089A 

21 

D8 

OD 


LD 

HL,ODDS 

ZEIGER AUF KONSTANTE 10 


089D 

CD 

Bl 

09 


CALL 

09B1 

NACH X LADEN 


08Ä0 

CI 



POP 

BC 

ZAHL ZURUECK NACH Y 


08 AI 

Dl 




POP 

DE 







UP 

SDIVY 

(AP.BC.DE,HL) 








SINGLEDIVISION: Z = Z2 / ZI 







I:X=DIVISOR 

Y=DIVIDENT 

0:X=QU0TIENT 



08A2 

CD 

55 

09 


CALL 

0955 

; DIVISOR = 0? 
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(JÖAji 

(JA 

9A 

19 

JP 

z,l99A 

JA, /U-EKKUK 

08A8 

2E 

FF 


LD 

L,FF 

FLAG FUER EXPONENTENVERARBEITUNG FUER SDIV 

08AA 

CD 

14 

09 

CALL 

09U 

EXPONENTEN UND VORZEICHEN VERARBEITEN 

08 AD 

34 



INC 

(HL) 

ERG EXP-KORREKTUR: EXP ERG + 2 

08 AE 

34 



INC 

(HL) 

(0914 ERGIBT EXP Y - EXP X - 1) 

08 AP 

2B 



DEC 

HL 

ZEIGER AUF MSB ZI 

08B0 

7E 



LD 

A,(HL) 

ZI IN SUBTRAKTIONSUP (4080) ABSPEICHERN 

08B1 

32 

89 

40 

LD 

(4089),A 

MSB 

08B4 

2B 



DEC 

HL 


08B5 

7E 



LD 

A,(HL) 


08B6 

32 

85 

40 

LD 

(4085),A 


08B9 

2B 



DEC 

HL 


08BA 

7E 



LD 

A,(HL) 


08BB 

32 

81 

40 

LD 

(4081),A 

;LSB 

08BE 

41 



LD 

B,C 

;Z2 NACH BHL 

08BF 

EB 



EX 

DE, HL 


08C0 

AF 



XOR 

A 

;ERGREGISTER Y = 0 

08C1 

4F 



LD 

C,A 

;MSB 

08C2 

57 



LD 

D,A 


08C3 

5F 



LD 

E,A 

LSB 

08C4 

32 

8C 

40 

LD 

(408C),A 

MSB ZI =0 (FUER SCHIEBEN) 

08C7 

E5 



PUSH 

HL 

Z2 RETTEN 

08C8 

C5 



PUSH 

BC 


08C9 

YD 



LD 

A.L 

LSB Z2 LADEN 

08CA 

CD 

80 

40 

CALL 

4080 

Z2 - ZI NACH Z2 

08CD 

DE 

00 


SBC 

00 

MSB Z2 - UEBERTRAG, UNTERLAUF? 

08CP 

3F 



CCF 


CY KOMPLEMENTIEREN 

08D0 

30 

07 


JR 

NC,08D9 

JA, SUBTRAKTION RUECKGAENGIG, 0 IN ERG EINSCHIEBEN 

08D2 

32 

8C 

40 

LD 

(408C),A 

MSB Z2 ABSPEICHERN 

08D5 

Fl 



POP 

AF 

Z2 VOM STACK ENTFERNEN 

08D6 

Fl 



POP 

AF 


08D7 

'37 



SCF 


1 IN ERG EINSCHIEBEN 

08D8 

D2 

CI 

El 

JP 

NC,E1 CI 

WIRD NIE AUSGEFUEHRT 

(08D9 

CI 


POP 

BC 

Z2 AUS STACK ZURUECK, SUBTRAKTION RUECKGAENGIG) 

(08D9 

El 


POP 

HL 


08DB 

79 



LD 

A,C 

MSB ERG NACH A 

08DC 

3C 



INC 

A 

BIT 7 = 1 (FERTIG)? 

08DD 

3D 



DEC 

A 


08DE 

1F 



RRA 


LETZTES BIT FUER RUNDUNG IN A7 BEREITSTELLEN 

08DP 

FA 

97 

07 

JP 

M,0797 

JA, NORMALISIERUNG 

08E2 

17 



RLA 


ERG * 2 NACH ERG:EINZUSCHIEBENDES BIT IN CY 

08E3 

7B 



LD 

A,E 

LSB * 2 

08E4 

17 



RLA 



08E5 

5F 



LD 

E,A 


08E6 

7A 



LD 

A,D 

DERGL. 

08E7 

17 



RLA 



08E8 

57 



LD 

D,A 


08E9 

79 



LD 

A,C 

MSB * 2 

08EA 

17 



RLA 



08EB 

4F 



LD 

C,A 


08EC 

29 



ADD 

HL, HL 

Z2 * 2 (LSB) 

08ED 

78 



LD 

A,B 


08EE 

17 



RLA 



08EF 

47 



LD 

B,A 


08F0 

3A 

8C 

40 

LD 

A,(408C) 

(MSB) 

08F3 

17 



RLA 



08F4 

32 

8C 

40 

LD 

(408C),A 


08F7 

79 



LD 

A,C 

ERG NOCH 0? 

08F8 

B2 



OR 

D 


08F9 

B3 



OR 

E 


08FA 

20 

CB 


JR 

NZ,08C7 

NEIN 

08FC 

E5 



PUSH 

HL 

JA, EXP ERG - 1: LSB Z2 RETTEN 

08FD 

21 

24 

41 

LD 

HL,4124 

ZEIGER AUF EXP X 

0900 

35 



DEC 

(HL) 

EXP X - 1,= 0? 

0901 

El 



POP 

HL 

LSB Z2 ZURUECK 

0902 

20 

C3 


JR 

NZ,08C7 

NEIN, WEITER 

0904 

C3 

B2 

07 

JP 

07B2 

JA, OV-ERROR 





VORBEREITUNG DER EXPONENTEN UND VORZEICHEN EUER MULTIPLIKATION UND DIVISION 





ANSPRUNG DDIV 


0907 

3E 

FF 


LD 

A,FF 

FLAG A = FF 

0909 

2E 

AF 


LD 

L,AF 






ANSPRUNG DMLT 


(090A 

AF 


XOR 

A 

FLAG A = 0) 

090B 

21 

2D 

41 

LD 

HL.412D 

MSB Y-ADRESSE NACH HL 

090E 

4E 



LD 

c,( hl) 

SIGN Y NACH C 

090F 

23 



INC 

HL 

HL AUF EXP Y 

0910 

AE 



XOR 

(HL) 

MIT FLAG VERKNUEPFEN D.H. BEI DMLT B=EXP Y 

0911 

47 



LD 

B,A 

UND BEI DDIV B = -EX? Y - 1 

0912 

2E 

00 


LD 

L,00 

FLAG I LOESCHEN 





ANSPRUNG FUER SMLT (L=0) UND SDIV (L=FF) 

0914 

78 



LD 

A,B 

EXP Y LADEN 

091 5 

B7 



OR 

A 

= 0? (D.H. Y = 0) 

0916 

28 

1F 


JR 

Z,0937 

JA, SOFORT IN HP ZURUECK MIT 0 IN X 

0918 

7D 



LD 

A,L 

FLAG LADEN (BEI DMLT, DDIV UND SMLT = 0) 

0919 

21 

24 

41 

LD 

HL,4124 

ZEIGER AUF EXP X 

091C 

AE 



XOR 

(HL) 

EXP Y MIT FLAG VERKNUEPFEN, D.H. BEI SDIV = - EXP Y - 1 

091D 

80 



ADD 

B 

EXP X ADDIEREN 

091E 

47 



LD 

B, A 

SUMME NACH EXP X 

091F 

1F 



RRA 


UEBER-/ UNTERLAUF? 

0920 

A8 



XOR 

B 


0921 

78 



LD 

A,B 

NEUEN EXP X LADEN 

0922 

F2 

36 

09 

JP 

P,0936 

JA 

0925 

C6 

80 


ADD 

80 

OFFSET ADDIEREN 

0927 

77 



LD 

(hl),a 

UND NEUEN EXP X APSPEICHERN 

0928 

CA 

90 

08 

J? 

Z,0890 

= 0?, RUECKSPRUNGADRESSE WEG UND SOFORT ZURUECK ZUM HP 
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oy2B cd df uy- 

' CALL 

ÖWF 

;VORZEICHEN VERARBEITEN- 

092E 77 

LD 

(HL),A 

;SIGN-FLAG IN (4125) ASPEICHERN 

092F 2B 

DEC 

HL 

;HL AUF EXP X 


0930 C9 


RET 


TJEBER-/ UNTERLAUF BEI EXP 

- - ;ARG / LOG (2) TESTEN 

ERG KOMPLEMENTIEREN (D.H. ARG / LN2 < 0, X=0, SONST OV-ERROR) 
RUECKSPRUNGADRESSE ZURUECK (DIREKT IN AUSDRUCKSANALYSE ZURUECK) 
UNTERLAUF? 

RUECKSPRUNGADRESSE ENTFERNEN, DAMIT SOFORT IN HP 
JA, X = 0, RET 
OV-ERROR 


0931 

CD 

55 

09 

CALL 

0955 

0934 

2F 



CPL 


0935 

El 



POP 

HL 

0936 

B7 



OR 

A 

0937 

El 



POP 

HL 

0938 

F2 

78 

07 

JP 

P,0778 

093B 

C3 

B2 

07 

JP 

07B2 




UP 

SMLT10 

(AF,BC,DE,HL) 





SINGLEMULTIPLIKATION : 





I:X=ZAHL 





0:X=ZAHL 

093E 

CD 

BF 

09 

CALL 

09BF 

0941 

78 



LD 

A,B 

0942 

B7 



OR 

A 

0943 

C8 



RET 

Z 

0944 

C6 

02 


ADD 

02 

0946 

DA 

B2 

07 

JP 

C,07B2 

0949 

47 



LD 

B,A 

094A 

CD 

16 

07 

CALL 

0716 

094D 

21 

24 

41 

LD 

HL,4124 

0950 

34 



INC 

(HL) 

0951 

CO 



RET 

NZ 

0952 

C3 

B2 

07 

JP 

07B2 


ZAHL NACH Y 

EXP ZAHL = 0? (ZAHL = 0) 

JA, FERTIG 

NEIN, EXP Y = EXP Y + 2 (ZAHL * 4), UEBERLAUF? 
JA, OV-ERROR 

X ADDIEREN, D.H. X = 5 * ZAHL 
ZEIGER AUF EXP X 

EXP X + 2 (D.H. X = 10D * ZAHL), UEBERLAUF? 
NEIN 

JA, OV-ERROR 


UP 


RTESTX (AF) 

TESTET REELLE ZAHL 
I:X=ZAHL (SINGLE ODER DOUBLE) 
0:WENN X < 0, A=FF,CY=1,S=1 
WENN X = 0, A=00,Z=1,P=1 



WENN 

X > 0, A=01 


0955 3A 24 41 

LD 

A, (4124) 

EXP X LADEN 

0958 B7 

OR 

A 

= 0? (D.H. X=0) 

0959 C8 

RET 

Z 

JA 

095Ä 3A 23 41 

LD 

A,(4123) 

MSB X NACH A 

095D FE 2F 

CP 

2F 


(095E 2F 

CPL 


AKKU COMPLEMENTIEREN) 

095F 17 

RLA 


SIGN X NACH CY 

0960 9F 

SBC 

A 

A=0-CY,X>0? 

0961 CO 

RET 

NZ 

NEIN 

0962 3C 

INC 

A 

JA, A=1 

0963 C9 

RET 




UP FLOATA 

(AF,BC,DE,HL) 



8-BIT- 

ZAHL MIT SIGN (EIT7) IN SINGLE UMWANDELN 


I:A=ZAHL 



0:X=GLEICHE ZAHL 


0964 06 88 

LD 

B,88 

EXP Y = 8 

0966 11 00 00 

LD 

DE,0000 

LSB Y = 0 

0969 21 24 41 

LD 

HL,4124 

ZEIGER AUF EXP X 

096C 4F 

LD 

C,A 

MSB Y = A 

096D 70 

LD 

(HL),B 

EXP X = EXP Y 

096E 06 00 

LD 

B,00 

EXP Y = 0 

0970 23 

INC 

HL 

ZEIGER AUF SIGN-FLAG 

0971 36 80 

LD 

(HL),80 

= 

0973 17 

RLA 


BIT 7 VON GESETZT? —> VOR 

0974 C3 62 07 

JP 

0762 

NORMALISIERUNG 


UP 

** 


0977 CD 94 09 
097A FO 


ABS (AF,BC,DE,HL) 

ABS-FUNKTION 

ABSOLUT WERT EINER ZAHL BILDEN 
I:X=ARGUMENTE 
0:X=FUNKTI0NSWERT 
CALL 0994 ;X >= 0? 

RET P ;JA, FERTIG 


UP 


097B E7 
097C FA 5B OC 
097F CA F6 OA 


NEG (AF,BC,DE,HL) 

NEGATIVEN WERT EINER ZAHL EILDEN 
I:X=ZAHL 
0:X=ZAHL 
RST 20 

JP M,0C5B 

JP Z,0AF6 


TYPX PRUEFEN 
INTEGER? —> SPRUNG 
STRING? —> TM-ERRCR 


UP 


0982 21 23 41 
0985 7E 
0986 EE 80 
0988 77 
0989 C9 


RNEG (AF,HL=4123) 

NEGATIVEN WERT EINER REELLEN ZAHL BILDEN 

I:X=ZAHL 

0:X=ZAHL 

LD HL.4123 ;ZEIGER AUF MSB X 

LD A,(HL) 

XOR 80 

LD (HL),A 

RET 


NACH LADEN 
SIGN-BIT INVERTIEREN 
WIEDER ABSPEICHERN 


UP 

** 


098A CD 94 09 


SGN (AF,HL) 

SGN-FÜNKTION 

BILDET DIE SGN-FUNKTION EINER ZAHL 

I:X=ARGUMENT 

0:X=FUNKTIONSWERT 

CALL 0994 ;X TESTEN 


UP 


INTA (AF,HL) 

WANDELT A IN 16-PIT-INTEGER UM (MIT SIGN) 
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1: A=ZAHJj M.LT 

vuHZtiüüiüW (BIT V) 


0:HL, X=16-BIT-INTEGERZAHL MIT VORZEICHEN 


098D 6F 

LD 

L,A 

;ZAHL NACH LSB HL 

098E 17 

RLA 


; ZAHL < 0? 

098F 9F 

SBC 

A 

;JA, FF NACH A 

0990 67 

LD 

H,A 

;UND MSB HL 

0991 C3 9A OA 

JP 

0A9A 

;HL NACH X 

UP 

TESTX 

(AF,HL) 



TESTET ALLE NUMERISCHEN TYPEN 
I:X=ZAHL 
0: SIEHE RTESTX 


0994 E7 




RST 

20 

TYP PRUEFEN 

0995 CA 

F6 

OA 


JP 

Z,0AF6 

STRING? —> TM-ERROR 

0998 F2 

55 

09 


JP 

P,0955 

SINGLE ODER DOUBLE? —> RTESTX 




UP 

ITESTX 

(AF,HL) 






TESTET 

INTEGERZAHL 






I:X=ZAHL 






0:HL.X= 

=ZAHL 






UND SIEHE RTESTX 


099B 2A 

21 

41 


LD 

HL,(4121) 

ZAHL LADEN NAuH HL 

099E 7C 




LD 

A,H 

= 0 ? 

099F B5 




OR 

L 


09A0 C8 




RET 

Z 

JA, FERTIG 

09A1 7C 




LD 

A,H 

NEIN, MSB NACH A 

09A2 18 

BB 



JR 

095F 

UND NACH RTESTX 




UP 

SPUSHX 

(DE) 






RETTET 

SINGLE AUF STACK 





I:X=ZAHL 






0:(SP) 

(SP+1):EXP UND 

MSB 





(SP+2),(SP+3):LSB 


09A4 EB 




EX 

DE, HL 

HL NACH DE 

09A5 2A 

21 

41 


LD 

HL,(4121) 

LSB X NACH HL 

09A8 E3 




EX 

(SP),HL 

MIT RET-ADRESSE VERTAUSCHEN 

09A9 E5 




PUSH 

HL 

RUECKSPRUNGADRESSE PUSHEN 

09AA 2A 23 

41 


LD 

HL,(4123) 

MSB+EXP NACH HL 

09AD E3 




EX 

(SP),HL 

MIT RUECKSPRUNGADRESSE VERTAUSCHEN 

09AE E5 




PUSH 

HL 

RUECKSPRUNGADRESSE PUSHEN 

09AF EB 




EX 

DE, HL 

DE NACH HL ZURUECK 

09B0 C9 




RET 




UP SLDXYC (BC,DE,HL+4) 

LAEDT SINGLE-KONSTANTE 
I:HL=ZEIGER AUE KONSTANTE 
0:X,Y=ZAHL 

09B1 CD C2 09 CALL 09C2 ;KONSTANTE NACH Y LADEN 


UP SLDXY (DE) 

TRANSPORTIERT SINGLE ZAHL 

I:Y=ZAHL 

0:X=ZAHL 

09B4 EB EX DE.HL ;LSB Y NACH HL, HL NACH DE RETTEN 

09B5 22 21 41 LD (4121),HL ;ALS LSB X ABSPEICHERN 

09B8 60 LD H,B ;MSB UND EXP Y NACH HL 

09B9 69 LD L,C 

09BA 22 23 41 LD (4123),HL ;ALS MSB UND EXP X ABSPEICHERN 

09BD EB EX DE,HL ;HL ZURUECK 

09BE C9 RET 


UP SLDYX (BC,DE,HL=4125) 

TRANSPORTIERT SINGLE ZAHL 

I:X:ZAHL 

0:Y:ZAHL 

09BP 21 21 41 LD HL,4121 ;ZEIGER AUE LSB X 

UP SLDYC "(BC, DE, HL+4) 

LAEDT KONSTANTE 

I:HL=ZEIGER AUE KONSTANTE 

0:Y=K0NSTANTE 


09C2 5E 

LD 

E,(HL) 

;LSB LADEN 

09C3 23 

INC 

HL 

;ZEIGER INC 

09C4 56 

LD 

D,(HL) 

;DERGL. 

09C5 23 

INC 

HL 


09C6 4E 

LD 

c,(HL) 

;DERGL. 

09C7 23 

INC 

HL 


09C8 46 

LD 

B,(HL) 

;DERGL. 

09C9 23 

INC 

HL 


09CA C9 

RET 




UP SLDCX (AE,B=0,DE=4125,HL+4) 
SPEICHERT ZAHL ALS KONSTANTE 
I:X=ZAHL 

0:(HL)..(HL+3)=ZAHL 


09CB 11 

21 41 

LD 

DE,4121 

;X-ADRESSE NACH DE 

09CE 06 

04 

LD 

B,04 

;SINGLE-ZAHL-LAENGE NACH B 

09D0 18 

05 

JR 

09D7 

;WEITER 


UP MOVE (AF.B=0,DE+4,HL+4) 

TRANSPORTIERT WERT JEDEN TYP 
I:HL=QUELLZEIGER 
DE=ZIELZEIGER 

(40AF)=TYPX=LANEGE DES ZU UEBERTRAGENDEN BEREICHES 
(HL)..=WERT 
0:(DE)..=WERT 

09D2 EB EX DE,HL ;ZIEL- UND QUELLZEIGER VERT. 


UP M0VE1 (AF,B=00,DE+4,HL+4) 
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09D3 

3A AF 

40 

LD 

A,(40AF) 

TYPX LADEN 

09D6 

47 


LD 

B,A 

ALS ZAEHLER 

09D7 

1A 


LD 

a,(de) 

BYTE LADEN 

09D8 

77 


LD 

(hl),a 

ABSPEICHERN 

09D9 

13 


INC 

de 

ZEIGER INC. 

09DA 

23 


INC 

HL 


09DB 05 


DEC 

B 

ZAEHLER DEC., FERTIG? 

09DC 

20 F9 


JR 

NZ,09D7 

NEIN, WEITER 

09DE 

C9 


RET 






VERARBEITUNG DER VORZEICHEN BEI REELLEN ZAHLEN 

09DF 

21 23 

41 

LD 

HL,4123 

ZEIGER AUF MSB X 

09E2 

7E 


LD 

A,(HL) 

MSB X NACH A 

09E3 

07 


RLCA 


SIGN NACH AO 

09E4 

37 


SCF 


CY = 1 

09E5 

1F 


RRA 


SIGN IN CARRY, MSB X7 = 1 

09E6 

77 


LD 

(hl),a 

NACH MSB X 

09E7 

3F 


CCF 


SIGN X KOMPLEMENTIEREN 

09E8 

1F 


RRA 


UND NACH A7 

09E9 

23 


INC 

HL 

ZEIGER AUF SIGN-FLG (4125) 

09EA 

23 


INC 

HL 


09EB 

77 


LD 

(hl),a 

- SIGN X DORTHIN 

09EC 

79 


LD 

A,C 

MSB Y NACH A 

09ED 

07 


RLCA 


SIGN Y NACH AO 

09EE 37 


SCF 


CY = 1 

09EF 

1F 


RRA 


MSB Y7=1, SIGN Y IN CY 

09F0 

4F 


LD 

C,A 

MSB Y ABSPEICHERN 

09E1 

1F 


RRA 


SIGN NACH A7 

09F2 

AE 


XOR 

(HL) 

MIT - SIGN X VERKNUEPFEN - 

09F3 

C9 


RET 




A7 = 1, WENN SIGN X = SIGN Y 


UP LDXY (AF,B=0,DE,HL) 
SPEICHERT WERT UM 
I:Y=WERT 

(40AP)=TYP DES WERTES 
0:X=WERT 


09F4 

21 

27 

41 

LD 

HL,4127 

;Y-ADRESSE NACH HL 

09F7 

11 

D2 

09 

LD 

DE.09D2 

;ADRESSE VON MOVE 

09FA 

18 

06 


JR 

0AÖ2 

;X-ADRESSE ERMITTELN UND NACH MOVE 


UP LDYX (AF,B=O.DE,HL) 
SPEICHERT WERT UM 
I:X=WERT 

(40AP)=TYP DES WERTES 
0:Y=WERT 


09FC 

21 

27 

41 

LD 

HL,4127 

;Y-ADRESSE DES WERTES 

09FF 

11 

D3 

09 

LD 

DE,09D3 

;ADRESSE VON M0VE1 

0A02 

D5 



PUSH 

DE 

;X-ADRESSE ERMITTELN UND 




UP 

POINTX 

(AF.DE) 






ERMITTELT X-ADRESSE 
I:(40AF)=TYPX 

IN ABHAENGIKEIT VON TYPX 





0: DE=X- 

-ADRESSE 


0A03 

11 

21 

41 

LD 

DE,4121 

;X-ADRESSE FUER SINGLE, 

0A06 

E7 



RST 

20 

;TYP TESTEN, DOUBLE? 

0A07 

D8 



RET 

C 

;NEIN 

0A08 

11 

ID 

41 

LD 

DE,411D 

;X-ADRESSE FUER DOUBLE 

OAOB 

C9 



RET 




INTEGER UND STRING 


UP SCPXY (AF,HL) 

SINGLEVERGLEICH: ZI UND Z2 
I:X=Z1 
Y=Z2 


0:Z1 > Z2, A=1 
ZI = Z2, A=0, Z=1 
ZI < Z2, A=FF, CY=1 


OAOC 78 



LD 

A,B 

OAOD B7 



OR 

A 

OAOE CA 

55 

09 

JP 

Z.0955 

0A11 21 

5E 09 

LD 

HL,095E 

0A14 E5 



PUSH 

HL 

0A15 CD 

55 

09 

CALL 

0955 

0A18 79 



LD 

A,C 

0A19 C8 



RET 

Z 

0A1Ä 21 

23 

41 

LD 

HL,4123 
(HL) 

0A1D AE 


XOR 

0A1E 79 



LD 

A,C 

0A1F F8 



RET 

M 

0A20 CD 

26 

OA 

CALL 

0A26 

OA23 1F 



RRA 


0A24 A9 



XOR 

C 

0A25 C9 



RET 





VERGLEICH 

0A26 23 



INC 

HL 

0A27 78 



LD 

A,B 

(HL) 

0A28 BE 



CP 

0A29 CO 



RET 

NZ 

0A2A 2B 



DEC 

HL 

0A2B 79 



LD 

A,C 

(HL) 

0A2C BE 



CP 

0A2D CO 



RET 

NZ 

0A2E 2B 



DEC 

HL 

0A2F 7A 



LD 

A,D 

(HL) 

0A30 BE 



CP 

0A31 CO 



RET 

NZ 

0A32 2B 



DEC 

HL 

OA33 7B 



LD 

A,E 


S=1 

Z2 = 0? 

JA, ZI TESTEN UND ZURUECK 

TEST-ADRESSE AUF STACK 

(A7 = 0, A-FF (CY,P), A7 = 1, A=1) 

ZI = 0? 

MSB Z2 NACH A 
JA, -SIGN Z2 ERGIBT ERG 
ZEIGER AUF MSB ZI 
SIGN ZI = SIGN Z2? 

MSB Z2 NACH A 

NEIN, -SIGN Z2 ERGIBT ERG 

VERGLEICH BEI GLEICHEN VORZEICHEN: BEI GLEICHHEIT Z, 
CY NACH A7 

BEI NEGATIVEN VORZEICHEN A7 INVERTIEREN 


ZEIGER AUF EXP X 
EXP Y LADEN 
MIT EXP X VERGL. 
RET, WENN UNGLEICH 
ZEIGER DEC 
DERGL. MIT MSB 


X>Y CY GES. 


S@iti 24 


;DERGL. MIT LSB 
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UKW 

■w 




~SUB- 

Tmi 


OA36 

Cü 




RET 

NZ 


OA36 

El 




POP 

HL 

;X = Y: RUECKSPRUNGADRESSE ENPERNEN 

0A37 

El 




POP 

HL 

;SOFORT IN HP MIT Z=1 

OA38 

C9 




RET 







UP 

ICP (AP) 

INTEGERVERGLEICH: ZI 

UND Z2 






I:ZI=HL 
Z2=DE 
0:SIEHE 

SCPXY 


OA39 

7A 




LD 

A,D 

; VORZEICHEN GLEICH? 

OA3A 

AC 




XOR 

H 


oa3b 

7C 




LD 

A,H 

;MSB ZI NACH A 

OA3C 

PA 

5P 

09 


JP 

M,095F 

;NEIN, VORZEICHEN VON ZI ERGIBT ERG. 

OA3F 

BA 




CP 

D 

;MSB ZI = MSB Z2? 

0A40 

C2 

60 

09 


JP 

NZ,0960 

;NEIN, CY ERGIBT ERG 

0A43 

7D 




LD 

A,L 

;LSB ZI = LSB Z2? 

0A44 

93 




SUB 

E 


OA4 c ) 

C2 

60 

09 


JP 

NZ f 0960 

;NEIN, CY ERGIBT ERG 

0A48 

C9 




RET 

;JA, ZURUECK nlT A=0 





UP 

DCPXC 

(AP.BC.DE,HL) 







DOUBLEVERGLEICH ZI UND KONSTANTE 






I:Z1=X 








DE=ZEIGER AUF KONSTANTE 






0:SIEHE 

SCPXY 


0A49 

21 

27 

41 


LD 

HL,4127 

09D3 

; ZEIGER AUF Y 

0A4C 

CD 

D3 

09 


CALL 

;KONSTANTE NACH Y 





UP 

DCPXY (AP,BC.DE,HL) 
DOUBLEVERGLEICH: ZI 

UND Z2 






I:X=Z1 
Y=Z2 
0:SIEHE 

SCPXY 


OA4F 

11 

2E 

41 


LD 

DE.412E 

A,(DE) 

;ZEIGER AUF EXP Z2 

OA52 

1A 




LD 

;Z2 = 0? 

OA53 

B7 




OR 

A 


OA54 

CA 

55 

09 


JP 

Z ,0955 

;JA, ZI BESTIMMT ERG 

OA57 

21 

5E 

09 


LD 

HL.095E 

;TEST-ADRESSE AUF STACK 

0A5A 

E5 




PUSH 

HL 

;(A7 = 0, A=FF; A7=1, A=01) 

OA5B 

CD 

55 

09 


CALL 

0955 

;X = 0? 

0A5E 

1B 




DEC 

DE 

;ZEIGER AUF MSB Y 

0A5P 

1A 




LD 

A,(DE) 

;MSB Y NACH A UND C 

0A60 

4P 




LD 

C,A 


0A61 

C8 




RET 

Z 

;JA, -SIGN Y BESTIMMT ERG 
;ZEIGER AUF SIGN X 

0A62 

21 

23 

41 


LD 

HL,4123 

OA65 

AE 




XOR 

(HL) 

;SIGN ZI = SIGN Z2? 

OA66 

79 




LD 

A,C 


0A67 

P8 




RET 

M 

jNEIN, -SIGN Y BESTIMMT ERG 

OA68 

13 




INC 

DE 

;ZEIGER AUF EXP Y 

OA69 

23 




INC 

HL 

;ZEIGER AUF EXP X 

0A6A 

06 

08 



LD 

B,08 

;8 BYTES 

0A6C 

1 A 




LD 

a,(de) 

;1 BYTE VERGLEICHEN 

OA6D 

96 




SUB 

(HL) 


OA6E 

C2 

23 

OA 


JP 

NZ.0A23 

;UNGLEICH, AUS CARRY ERG BERRECHNEN 

OA71 

1B 



DEC 

DE 

;ZEIGER DEC. 

OKI 2 

2B 




DEC 

HL 


0A73 

05 




DEC 

B 

;8 BYTE VERGLICHEN? 

0A74 

20 

P6 



JR 

NZ.0A6C 

;NEIN, WEITER 

OKI 6 

CI 




POP 

BC 

;RUECKSPRUNGADRESSE ENTFERNEN 

OA77 

C9 




RET 


;ZURUECK MIT A=0, Z=1 





UP 

DCPYX 

(AP.BC.DE,HL) 







DOUBLEVERGLEICH: ZI 

UND Z2 






I:Y=Z1 
X=Z2 
0:SIEHE 

SCPXY 


0A78 

CD 

4P 

OA 


CALL 

0A4F 

;DCPXY AUFRUFEN 

0A7B 

C2 

5E 

09 


JP 

NZ.095E 

;ZAHLEN UNGLEICH? —> ERG INVERTIEREN 

0A7E 

C9 




RET 

;NEIN, ZURUECK 





UP 

CINT (AP,BC,DE,HL) 






** 

CINT-FÜNKTION 







WANDELT 

ZAHL IN 16-BIT INTEGER UM 






I:X=ZAHL 

0:X=ZAHL 


0A7F 

E7 




RST 

20 

;TYP TESTEN 

0A80 

2A 

21 

41 


LD 

HL,(4121 ) 

;X NACH HL (RICHTIG NUR BEI INTEGER) 

0A83 

P8 




RET 

M 

;INTEGER? —> FERTIG 

OA84 

CA 

F6 

OA 


JP 

Z,0AF6 

;STRING? —> TM-ERROR 

0A87 

D4 

B9 

OA 


CALL 

NC.0AB9 

;DOUBLE? —> IN SINGLE UMWANDELN 

0A8A 

21 

B2 

07 


LD 

HL.07B2 

;OV-ERROR-ADRESSE AUF STACK 

0A8D 

E5 




PUSH 

HL 

;EXP X > 16D? (ABS (ZAHL) > 32767D) 

0A8E 

3A 

24 

41 


LD 

A,(4124) 

0A91 

PE 

90 



CP 

90 

0A93 

30 

OE 



JR 

NC.0AA3 

;JA 

OA95 

CD 

PB 

OA 


CALL 

OAPB 

;INT(X) NACH DE 

0A98 

EB 




EX- 

DE,HL 

;NACH HL 

OA99 

Dl 




POP 

DE 

;OV-ERROR-ADRESSE AUS STACK ENTFERNEN 





UP 

ILDXHL 

(A) 







LAEDT ZAHL ALS INTEGER NACH X 






I:HL=ZAHL 

0:X=ZAHL 







TYPX= 

2 


0A9A 

22 

21 

41 


LD 

(4121),HL 

;HL NACH X 





UP 

TYPXI 

(A=02) 



Röckrath 
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—TÜPX = 
I:/ 

IM'EGEK 






OrTYPX 

= 2 


OA9D 

3E 02 


LD 

A,02 
(40AP),A 

;TYPCODE PUER INTEGER NACH 

OA9P 

32 

AP 

40 

LD 

;UND NACH TYPX 

OAA2 

C9 



RET 


OAA3 

01 

80 

90 

LD 

BC,9080 

;KONSTANTE -32768D NACH Y 

OAA6 

11 

00 

00 

LD 

DE.ÖOOO 

OAA9 

CD 

OC 

OA 

CALL 

OAÖC 

;X = - 32768D? 

OAAC 

CO 



RET 

NZ 

;NEIN, ÖV-ERROR 

OAAD 

61 



LD 

H,C 

;JA, HL = - 32768D 

OAAE 

6A 



LD 

L,D 


OAAP 

18 

oo 


JR 

OA99 

;WEITER WIE OBEN 


UP CSNGX (AF,BC,DE,HL) 

** CSNG-FUNKTION 

WANDELT ZAHL IN SINGLE UM 

IrX=ZAHL 

OrX^ZAHL 


0AB1 

E7 


RST 

20 

TYP TESTEN? 

0AB2 

EO 


RET 

PO 

SINGLE? —> FERTIG 

0AB3 

PA 

CC OA 

JP 

M.OACC 

INTEGER? —> SPRUNG 

0AB6 

CA 

F6 OA 

JP 

Z,0AF6 

STRING? —> TM-ERROR 

0AB9 

CD 

BP 09 

CALL 

09BF 

X NACH Y 

OABC 

CD 

EP OA 

CALL 

OAEP 

TYPX = 4 

OABP 

78 


LD 

A,B 

X = 0? 

OACO 

B7 


OR 

A 


0AC1 

C8 


RET 

Z 

JA, FERTIG 

0AC2 

CD 

DP 09 

CALL 

09DF 

SIGN ABTRENNEN 

0AC5 

21 

20 41 

LD 

HL.4120 

GERADE NICHT MEHR UEBERNOMMENES BYTE 

0AC8 

46 


LD 

B,(HL) 

ZUR RUNDUNG BEREITSTELLEN 

0AC9 

C3 

96 07 

JP 

0796 

RUNDUNG UND NORMALISIERUNG 


UP ICSNGX (AF,BC,DE,HL) 

INTEGER IN SINGLE UMWANLELN 

I:X=ZAHL 

0:X=ZAHL 

OACC 2A 21 41 LD HL,(4121) ;INTEGER NACH HL LADEN 


UP ICSNGH (AP,BC,DE,HL) 
INTEGER IN SINGLE UMW 
I:HL=ZAHL 
0:X=ZAHL 


OACP CD EP OA 

CALL 

OAEP 

;TYPX = 4 

0AD2 7C 

LD 

A,H 

;PARAMETER FJER FLOATA 

0AD3 55 

LD 

D,L 

;BEREITSTELLEN 

0AD4 IE 00 

LD 

E,00 


0AD6 06 90 

LD 

B,90 

;EXP X = 16D 

0AD8 C3 69 09 

JP 

0969 

;SPRUNG IN FLOATA 


UP CDBLX (AP,BC,DE,HL) 

** CDBL-PUNK TION 

ZAHL IN DOUBLE UMWANDELN 
I:X=ARGUMENT 


0:X=PUNKTIONSWERT 


OADB 

E7 


RST 

20 

OADC 

DO 


RET 

NC 

OADD 

CA 

F6 OA 

JP 

Z,0AF6 

OAEO 

PC 

CC OA 

CALL 

M,OACC 

0AE3 

21 

00 00 

LD 

HL,0000 

0AE6 

22 

ID 41 

LD 

(41 ID),HL 

0AE9 

22 

1F 41 

LD 

(411F),HL 


;TYP TESTEN 
;DOUBLE? —> FERTIG . 

;STRING? —> TM-ERROR 
;INTEGER? —> IN SINGLE UMWANDELN 
;DIE 4 NIEDERWERTIGSTEN BYTES 
;LOESCHEN 


UP TYPXD (A=08,BC=043DE) 
TYPX = DOUBLE 

I:/ 

OrTYPX = 8 


OAEC 3E 08 

LD 

A,08 ; 

A = TYPCODE DOUBLE 


OAEE 01 

3E 04 

LD 

BC,043E 




UP 

TYPXS 

(A=04) 





TYPX = 

SINGLE 





I:/ 






OrTYPX 

= 4 



(OAEP 

3E 04 

LD 

A,04 

A = TYPCODE SINGLE) 


0AF1 C3 

9F OA 

JP 

0A9P 

IN TYP X ABSPEICHERN 




TESTEN, 

OB STRING IN J 



0AF4 E7 


RST 

20 ;TYP TESTEN 


0AP5 C8 


RET 

z 

STRING? —> FERTIG 




TM-ERROR 



0AP6 IE 

18 

LD 

E,18 

TM-ERROR-CODE NACH E 


0AP8 C3 

A2 19 

JP 

1§A2 

ZUR ERROR-ROUTINE 




UP PUER INT. PIX, CINT 


OAPB 47 


LD 

B,A 

WENN A=0, ZURUECK MIT Y=0 


OAPC 4P 


LD 

C,A 



OAPD 57 


LD 

D,A 



OAPE 5F 


LD 

E,A 



OAPP B7 


OR 

A 



OBOO C8 


RET 

Z 



0B01 E5 


PUSH 

HL 

ZEIGER AUF EXP X RETTEN 


0B02 CD 

BP 09 

CALL 

09BF 

X NACH Y 


0B05 CD 

DP 09 

CALL 

09DP 

SIGN ABTRENNEN 


0B08 AE 


XOR 

(HL) 

X NEGATIV? 


0B09 67 


LD 

H,A 

SIGN NACH H7 


OBOÄ PC 

1F OB 

CALL 

M,0B1 P 

JA, LSB DEC. (DAMIT INT(-1) = - 

UND NICHT -2) 

OBOD 3E 

98 

LD 

A,98 

MANTISSENLAENGE - EXPONENT ERG. 

RECHTSVERSCHIEBUNGEN 
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uBUr yu 
OBI 0 CD 

D7 

07 

SU'B"" 
CALL 

B 

07D7 

;RECHTSVERSCHIEBUNGEN AUSFUEHREN 

OBI 3 7C 



LD 

A,H 

;WAR X NEGATIV? 

OBI 4 17 



RLA 



OBI 5 DC 

A8 

07 

CALL 

C.07A8 

;JA, FESTKOMMAZAHL + 1 

OBI 8 06 

00 


LD 

B,00 

;LSB = 0 

OBIA DC 

C3 

07 

CALL 

C.07C3 

;JA, MX = - MX 

0B1D El 



POP 

HL 

;ZEIGER AUF EX ZURUECK 

0B1E C9 



RET 



0B1F 1B 



DEC 

DE 

;LSB - 1 

0B20 7A 



LD 

A,D 

;= 0? 

0B21 A3 



AND 

E 


0B22 3C 



INC 

A 


OB23 CO 



RET 

NZ 

;NEIN, FERTIG 

0B24 OB 



DEC 

BC 

;MSB - 1 

0B25 C9 



RET 




UP FIX (AF,BC,DE,HL) 

** FIX-FUNKTION 

INT OHNE BERUECKSICHTIGUNG DES VORZEICHENS 


I:X=ARGUMENT 
0:X=FUNKTIONSWERT 


OB26 

E7 


RST 

20 

TYP TESTEN 

0B27 

F8 


RET 

M 

INTEGER? —> FERTIG 

0B28 

CD 

55 09 

CALL 

0955 

X >= 0? 

0B2B 

F2 

37 OB 

JP 

P,0B37 

JA, SPRUNG ZU INT 

0B2E 

CD 

82 09 

CALL 

0982 

NEIN, X = - X 

0B31 

CD 

37 OB 

CALL 

OB37 

INT 

0B34 

C3 

7B 09 

JP 

097B 

X 

1! 

1 

X 


UP INT (AF,BC,DE,HL) 

** INT-FUNKTION 

ERMITTELTE NAECHST KLEINERE GANZE ZAHL 
I:X=ARGUMENT 
0:X=FUNKTIONSWERT 


OB37 E7 


RST 

20 

TYP TESTEN 

0B38 F8 


RET 

M 

INTEGER? —> FERTIG 

OB39 30 

IE 

JR 

NC,OB59 

Z,0AF6 

DOUBLE? —> SPRUNG 

0B3B 28 B9 

JR 

STRING? —> TM-ERROR 

0B3D CD 

8E OA 

CALL 

0A8E 

WENN UMFORMUNG IN INTEGER MOEGLICH, DIESE AUSFUEHREN UND FERTIG 

0B40 21 

24 41 

LD 

HL,4124 

ZEIGER AUF EXP X 

OB43 7E 


LD 

A, (,HL) 

98, 

EXP X NACH A 

0B44 FE 

98 

CP 

EXP X >= MANTISSENLAENGE? 

0B46 3A 21 41 

LD 

A,(4121) 

LSB X LADEN 

OB49 DO 


RET 

NC 

JA, FERTIG, KEINE NACHKOMMASTELLEN VORHANDEN 

0B4A 7E 


LD 

A,(HL) 

EXP X NACH A 

0B4B CD 

FB OA 

CALL 

OAFB 

NACHKOMMASTELLEN ENTFERNEN NACH Y 

0B4E 36 

98 

LD 

(HL),98 

MANTISSENLAENGE NACH EXP X 

0B50 7B 


LD 

A,E 

LSB Y NACH A, RETTEN 

0B51 F5 


PUSH 

AF 


OB52 79 


LD 

A,C 

•SIGN Y IN CARRY 

OB53 17 


RLA 



OB54 CD 

62 07 

CALL 

0762 

NORMALISIERUNG UND WENN Y < 0, X=-X 

OB57 Fl 


POP 

AF 

;LSB Y ZURUECK 

0B58 C9 


RET 





DOUBLEINT 


OB59 21 

24 41 

LD 

HL,4124 

ZEIGER AUF EX 

0B5C 7E 


LD 

A,(HL) 

90 

EXP X < 16D? (X < 32768D) 

0B5D FE 

90 

CP 

0B5F DA 7F OA 

JP 

C,0A7F 

JA, CINT 

0B62 20 

14 

JR 

NZ,0B78 

C,A 

EXP X > 16D? —> SPRUNG 

0B64 4F 


LD 

EXP X NACH C 

OB65 2B 


DEC 

HL 

ZEIGER AUF MSB X 

OB66 7E 


LD 

s6 (HL) 

X = -32768D?: 

0B67 EE 

80 

XOR 

-SIGN X NACH A7 

OB69 06 06 

LD 

B,06 

6 BYTES 

0B6B 2B 


DEC 

HL 

ZEIGER AUF NAECHSTES BYTE 

0B6C B6 


OR 

(HL) 

WENN <> 0, A <>0 

0B6D 05 


DEC 

B 

BYTEZAEHLER DEC, FERTIG? 

0B6E 20 

FB 

JR 

NZ,0B6B 

NEIN, WEITER 

0B70 B7 


OR 

A 

A=0? (D.H. X=-32768D ) 

0B71 21 

00 80 

LD 

HL,8000 

-32768D NACH HL 

0B74 CA 

9A OA 

JP 

Z.0A9A 

JA, FERTIG 

0B77 79 


LD 

A.C 

EXP X ZURUECK 

0B78 FE 

B8 

CP 

B& 

EXP X >= MANTISSENLAENGE? 

0B7A DO 


RET 

NC 

JA, FERTIG, KEINE NACHKOMMASTELLEN 

0B7B F5 


PUSH 

AF 

NORMALISIERUNGSFLAG (CY) RETTEN 

0B7C CD 

BF 09 

CALL 

09BF 

X NACH Y 

0B7F CD 

DF 09 

CALL 

09DF 

SIGN ABTRENNEN 

0B82 AE 


XOR 

(HL) 

X NEGATIV? 

0B83 2B 


DEC 

HL 

ZEIGER AUF EXP X 

0B84 36 B8 

LD 

(HL),B8 

EXP X = MANTISSENLAENGE 

0B86 F5 


PUSH 

AF 

SIGN (A7) RETTEN 

0B87 FC 

AO OB 

CALL 

M,0BA0 

JA, LSB - 1 (S. 0.) 

0B8A 21 

23 41 

LD 

HL,4123 

ZEIGER AUF MSB X 

0B8D 3E B8 

LD 

A,B8 

MANTISSENLAENGE - EXPONENT ERG. RECHTSVERSCHIEBUNGEN 

0B8F 90 


SUB 

B 


0B90 CD 

69 OD 

CALL 

OD69 

RECHTSVERSCHIEBUNGEN AUSFUEHREN 

OB93 Fl 


POP 

AF 

SIGN ZURUECK 

OB94 FC 

0B97 AF 

20 OD 

CALL 

M,0D20 

X < 0? —> FESTKOMMAZAHL + 1 

(DAMIT AUCH BEI NEGATIVEN ZAHLEN NAECHST KLEINERE ZAHL) 


XOR 

A 

LSB FUER NORMALISIERUNG - 0 

0B98 32 

IC 41 

LD 

(411C),A 


0B9B Fl 


POP 

AF 

FLAG FUER NORMALISIERUNG ZURUECK 

0B9C DO 


RET 

NC 

KEINE NORMALISIERUNG? —> FERTIG 

0B9D C3 

D8 OC 

JP 

0CD8 

SPRUNG ZUR NORMALISIERUNG 

OBAO 21 

ID 41 

LD 

HL,41 ID 
a,(hl) 

LSB - 1: ZEIGER AUF LSB X 

0BA3 7E 


LD 

BYTE LADEN 
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UBA4 33 

-DEC- 

-tULj 

l 

0BA5 B7 

OR 

A 

;VORHER = 0? 

0BA6 23 

INC 

HL 

;ZEIGER INC. 

0BA7 28 FA 

JR 

Z,0BA3 

;JA, WEITER 


0BA9 C9 RET 


UP INDEX (AP,DE) 

MULTIPLIKATION (PUER FELDVERWALTUNG) 
I:BO=FAKTOR 


DE=FAKT0R 
0:BC=PRODUKT 


OBAA 

E5 



PUSH 

HL 

OBAB 

21 

00 

00 

LD 

HL,0000 

OBAE 

78 



LD 

A,B 

OBAF 

Bl 



OR 

C 

OBBO 

28 

12 


JR 

Z,0BC4 

0BB2 

3E 

10 


LD 

A. 10 

0BB4 

29 



ADD 

hL,hl 

0BB5 

DA 

3D 

27 

JP 

C,273D 

0BB8 

EB 



EX 

DE,HL 

0BB9 

29 



ADD 

HL,HL 

OBBA 

EB 



EX 

DE, HL 

OBBB 

30 

04 


JR 

NC,0BC1 

OBBD 

09 



ADD 

HL ,BC 

OBBE 

DA 

3D 

27 

JP 

C.273D 

0BC1 

3D 



DEC 

A 

0BC2 

20 

FO 


JR 

NZ,0BB4 

0BC4 

EB 



EX 

DE, HL 

0BC5 

El 



POP 

HL 

0BC6 

C9 



RET 



HL RETTEN 
ERG LOESCHEN 
FAKTOR = 0? 

JA. ERG=0. FERTIG 
16D DURCHLAUEFE 
ERG * 2, UEBERLAUF? 

JA, BS-ERROR 
FAKTOR DE * 2 

NAECHSTES BIT GESETZT? 

NEIN, WEITER 

JA, ANDEREN FAKTOR ADDIEREN, 

JA, BS-ERROR 

FERTIG? 

NEIN, WEITER 
ERG NACH DE 
HL ZURUECK 


UEBERLAUF? 


INTEGERARITHMETIK 


UP ISUB (AF,BC,DE,HL) 

INTEGERSUBTRAKTION: Z = ZI - Z2 
I:DE=MINUNEND 
HL=SUBTRAHENT 
0:HL.X:DIFFERENZ 

(BEI UNTER-/UEBERLAUF IN X ALS SINGLE) 


0BC7 7C 

LD 

A,H 

;SIGN Z2 IN CY 

0BC8 17 

RLA 



0BC9 9F 

SBC 

A 

;B=FF, WENN Z2 < 0, SONST 0 

OBCA 47 

LD 

B,A 


OBCB CD 51 OC 

CALL 

0C51 

;Z2 = 0 - Z2 

OBCE 79 

LD 

A,C 

;A = 0 

OBCF 98 

SBC 

B 

;SIGN - FLAG KOMPLEMENTIEREN 

OBDO 18 03 

JR 

0BD5 

;SPRUNG ZUR ADDITION 


UP IADD (AF,BC.DE,HL) 

INTEGERADDITION: Z = ZI + Z2 
I:DE~SUMMAND 
HL=SUMMAND 

0:HL=SUMME, ODER X SIEHE ISUB 


0BD2 

7C 



LD 

A,H 

SIGN Z2 IN CY 

0BD3 

17 



RLA 



0BD4 

9F 



SBC 

A 

SIGN-FLAG NACH B: 

0BD5 

47 



LD 

B,A 

B = FF, WENN Z2 < 0, SONST B = 0 

0BD6 

E5 



PUSH 

HL 

Z2 RETTEN 

0BD7 

7A 



LD 

A,D 

SIGN ZI IN CY 

0BD8 

17 



RLA 



0BD9 

9F 



SBC 

A 

SIGN-FLAG ZI , A = FF, WENN ZI < 0, SONST A=0 

OBDA 

19 



ADD 

HL,DE 

SUMME BILDEN 

OBDB 

88 



ADC 

B 

UEBERLAUF? (WENN BEIDE NEGATIV UND ERG POSITIV 

OBDC 

OF 



RRCA 


BEIDE POSITIV ERG NEGATIV) 

OBDD 

AC 



XOR 

H 


OBDE 

F2 

99 

OA 

JP 

P,OA99 

NEIN, HL NACH X FERTIG 





INTEGERADDITIONS-UEBERLAUF 

OBEI 

C5 



PUSH 

BC 

SIGN-FLAG Z2 RETTEN 

0BE2 

EB 



EX 

DE, HL 

ZI NACH HL 

0BE3 

CD 

CF 

OA 

CALL 

OACF 

ALS SINGLE NACH X 

0BE6 

Fl 



POP 

AF 

SIGN-FLAG Z2 NACH A 

0BE7 

El 



POP 

HL 

Z2 ZURUECK 

0BE8 

CD 

A4 

09 

CALL 

09A4 

X AUF STACK RETTEN 

OBEB 

EB 



EX 

DE .HL 

Z2 NACH DE 

OBEC 

CD 

6B 

OC 

CALL 

0C6B 

Z2 ALS SINGLE NACH X 

OBEF 

C3 

8F 

OF 

JP 

0F8F 

X + (STACK) NACH X (ZI + Z2 NACH X) 


UP IMLT (AF,BC,DE,HL) 

INTEGERMULTIPLIKATION: Z = ZI * Z2 
I:DE=FAKTOR 


HL=FAKTOR 






0:HL= 

PRODUKT, ODER X SIEHE ISUB 

0BF2 

7C 



LD 

A,H 

Z2 = 0? 

0BF3 

B5 



OR 

L 


0BF4 

CA 

9A 

OA 

JP 

Z,0A9A 

JA, Z2 = ERG, FERTIG 

0BF7 

E5 



PUSH 

K l 

Z2 RETTEN 

0BF8 

D5 



PUSH 

DE 

ZI RETTEN 

0BF9 

CD 

45 

OC 

CALL 

OC45 

VORZEICHEN ENTFERNEN (SIGN ZI XOR SIGN Z2 NACH B7) 

OBFC 

C5 



PUSH 

BC 

SIGN-FLAG RETTEN 

OBFD 

44 



LD 

B,H 

Z2 NACH BC 

OBFE 

4D 



LD 

C,L 


OBFF 

21 

00 

00 

LD 

HL,0000 

ERGREG LOESCHEN 

0C02 

3E 

10 


LD 

A, 10 

16D DURCHLAUEFE 

0C04 

29 



ADD 

HL.HL 

ERG * 2, UEBERLAUF? 

0CO5 

38 

1F 


JR 

C,OC26 

JA 

0C07 

EB 



EX 

DE, HL 

ZI * 2 

0C08 

29 



ADD 

HL,HL 


0C09 

EB 



EX 

DE,HL 

NAECHSTES BIT GESETZT? 
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TJÜJA 

"■50" Ü4 - 

—UK- 

-NC,001ü- 

"NEIN- 

OCOC 

Ö9 

ADD 

HL.BC 

JA, Z2 AUF ERG ADDIEREN, UEBERLAUF? 

OCOD 

DA 26 OC 

JP 

C.0C26 

JA 

0C10 

3D 

DEC 

A 

FERTIG? 

0C11 

20 Fl 

JR 

NZ.0C04 

NEIN, WEITER 

0C13 

CI 

POP 

BC 

SIGN-FLAG ZURUECK 

oci4 

Dl 

POP 

DE 

ZI NACH DE ZURUECK 

0C1 5 

7C 

LD 

A.H 

ERG > 32767D? 


0C16 B7 OR A 

OC17 FA 1F OC JP M,OC1F ;JA, UEBERLAUF 

0C1A Dl POP DE ;Z2 AUS STACK ENTFERNEN 

ÜC1B 78 LD A,B ;ERGEBNIS MIT SIGN-FLAG KORRIGIEREN 

OC1C C3 4D OC JP OC4D 


INTEGERMULTIPLIKATIONS-UBERLAUF 


001F EE 

80 

XOR 

80 

ERG = 32768D? 

0C21 B5 


OR 

L 


0022 28 

13 

JR 

Z.0C37 

JA 

0024 EB 


EX 

DE,HL 

ZI NACH HL 

0C25 01 

CI El 

LD 

BC.E1C1 


(0C26 

CI 

POP 

BC 

SIGN-FLAG ZURUECK) 

(0C27 

El 

POP 

HL 

ZI NACH HL ZURUECK) 

0C28 CD 

OF OA 

CALL 

OACF 

ZI ALS SINGLE NACH X 

0C2B El 


POP 

HL 

Z2 NACH HL 

002C CD 

A4 09 

CALL 

09A4 

ZI AUS X AUF STACK 

0C2F CD 

CF OA 

CALL 

OACF 

Z2 ALS SINGLE NACH X 

ÜC32 CI 


POP 

BC 

ZI AUS STACK NACH Y 

0033 Dl 


POP 

DE 


0C34 C3 

47 08 

JP 

0847 

X = Y * X (= ZI * Z2) 

0C37 78 


LD 

A,B 

SIGN-FLAG NACH A 

0C38 B7 


OR 

A 

ERG NEGATIV? 

OC39 CI 


POP 

BC 

Z2 NACH BC ZURUECK 

0C3Ä FA 

9A OA 

JP 

M.0A9A 

JA, HL (= -32768D) ALS ERG NACH X 

0C3D D5 


PUSH 

DE 

ZI RETTEN 

0C3E CD 

CF OA 

CALL 

OACF 

HL (= -32768D) NACH X ALS SINGLE 

0C41 Dl 


POP 

DE 

ZI ZURUECK 

0042 C3 

82 09 

JP 

0982 

X = -X (X = 32768D), FERTIG 



ZWEIERKOMPLEMENT ENTFERNEN 

OC45 7C 


LD 

A,H 

SIGN HL = SIGN DE? —> B7=0, SONST 

0046 AA 


XOR 

D 


OC+7 47 


LD 

B,A 


0048 CD 

4C OC 

CALL 

0C4C 

ABS (HL) BILDEN 

0C4B EB 


EX 

DE,HL 

DE NACH HL 

0C4C 7C 


LD 

A,H 

ABS (HL) BILDEN 

0C4D B7 


OR 

A 

HL < 0? 

0C4E F2 

'Xi 

> 

o 

> 

JP 

P.0A9A 

JA, HL NACH X 

0C51 AF 


XOR 

A 

,A - 0 

0C32 4F 


LD 

C,A 

,C = 0 

CC53 93 


SUB 

L 

,0 - L NACH L 

OC54 6F 


LD 

L,A 


OC55 79 


LD 

A,C 

;0 - H NACH H 

0056 9C 


SBC 

H 


0057 67 


LD 

H,A 


CC58 C3 

9A OA 

JP 

0A9A 

;HL NACH X 


UP INEG (AF.BC.DE, KL) 

NEGATIVEN WERT EINER INTEGERZAHL 
I:X=ARGUMENT 
0:X=FUNKTIONSWERT 


0C5B 2A 

21 41 

LD 

HL, 4121 

ARG NACH HL 

0C5E CD 

51 OC 

CALL 

0C$1 

0 - ARG NACH HL UND X 

0C61 7C 


LD 

A.H 

HL = 32768D? 

0C62 EE 

80 

XOR 

86 


0C64 B5 


OR 

L 


0065 CO 


RET 

NZ 

NEIN, FERTIG 

OC66 EB 


EX 

DE,HL 

JA, HL IN SINGLE UMWANDELN (OHNE SIGN BIT) 

OC67 CD 

EF OA 

CALL 

OAEF 

TYPX = SINGLE 

0C6A AF 


XOR 

A 


0C6B 06 

98 

LD 

B,98 

EXP = 18 

0C6D C3 

69 09 

JP 

0969 

SPRUNG IN FLOATA 


DOUBLE-PRECISION-ARITHMETIK 


UP DSUB (AF.BC.DE,HL) 

DOUBLESUBTRAKTION: Z = ZI - Z2 
I:X=MINUEND 
Y=SUBTRAHENT 
0:X=DIFFERENZ 

0C70 21 2D 41 LD HL.412D ;ZEIGER AUF MSB Y 

OC73 7E LD A,(HL) ;Z2 = - Z2 

0C74 EE 80 XOR 80 

OC76 77 LD (HL),A 


UP DADD (AF.BC.DE.HL) 

DOUBLEADDITION: Z = ZI + Z2 
I:X=SUMMAND 
Y=SUMMAND 




0:X= 

: SUMME 


0C77 21 

2E 41 

LD 

HL.412E ; 

; ZEIGER AUF EXP Y 

0C7A 7E 


LD 

A,(HL) 


0C7B B7 


OR 

A ; 

Z2 = 0? 

0C7C C8 


RET 

Z ; 

JA, ZI IN X IST ERGEBNIS 

0C7D 47 


LD 

B,A ; 

EXP Z2 NACH B 

0C7E 2B 


DEC 

HL ; 

ZEIGER AUF MSB Y 

0C7F 4E 


LD 

C,(HL) ; 

SIGN Z2 NACH C 

0C30 11 

24 41 

LD 

DE.4124 | 

ZEIGER AUF EXP X 

0C83 1A 


LD 

a,(de) 


0C84 B7 


OR 

A ; 

; ZI = 0? 
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üuö 3 ca F 4 09 

JP 

Z7Ü9F4 ; 

JA, Z2 (IN YT71ACH X, FERTIG ' 

0C88 90 

SUB 

B ; 

EXP ZI - EXP Z2 NACH A, EXP ZI >= EXP Z2? 

0C89 30 16 

JR 

NC,0CA1 ; 

JA 

0C8B 2F 

CPL 


NEIN, EXPDIF = -EXPDIF, ZI UND Z2 VERTAUSCHEN 

0C8C 3C 

INC 

A 


0C8D F5 

PUSH 

AF ; 

EXPDIF RETTEN 

0C8E OE 08 

LD 

C ,08 ; 

BYTEZAEHLER 

0C90 23 

INC 

HL ; 

ZEIGER AUF EXP Y 

0C91 E5 

PUSH 

HL ; 

RETTEN 

0C92 1A 

LD 

A,(DE) ; 

1 BYTE VERTAUSCHEN 

OC93 46 

LD 

B,(HL) 

(hl),a 


0C94 77 

LD 


OC95 78 

LD 

A,B 
(DE),A 


0C96 12 

LD 


0C97 1B 

DEC 

DE ; 

ZEIGER DEC. 

0C98 2B 

DEC 

HL 


OC99 OD 

DEC 

C 

FERTIG? 

0C9A 20 F6 

JR 

NZ,OC92 

NEIN, WEITER 

0C9C ES 

POP 

HL 

ZEIGER AUF EXP Y ZURUECK 

0C9D 46 

LD 

B,(HL) 

EXP Y NACH B 

0C9E 2B 

DEC 

ZEIGER AUF MSB Y 

0C9F 4E 

LD 

c,( hl) 

MSB Y NACH C 

OCAO Fl 

POP 

AF 

EXPDIF ZURUECK 

0CA1 FE 39 

CP 

39 

EXPDIF >= MANTISSENLAENGE + 1? 

0CA3 DO 

RET 

NC 

JA, FERTIG 

0CA4 F5 

PUSH 

AF 

EXPDIF RETTEN 

0CA5 CD DF 09 

CALL 

09DF 

SIGN-BITS ENTFERNEN, SIGN-FLAG DES ERGEBNISSES BILDEN 

0CA8 23 

INC 

HL 

CARRY FUER RECHTSSCHIEBEN VON Y (4126) LOESCHEN 

0CA9 36 00 

LD 

(HL),00 

OCAB 47 

LD 

B,A 

SIGN-FLAG NACH B 

OCAC Fl 

POP 

AF 

EXPDIF ZURUECK, GIBT ANZAHL DER VERSCHIEBUNGEN AN 

OCAD 21 2D 41 

LD 

HL.412D 

ZEIGER AUF MSB Y 

OCBO CD 69 OD 

CALL 

0D69 

Y UM A-BITS RECHTSVERSCHIEBEN 

0CB3 3A 26 41 

LD 

A,(4126) 
(411C),A 

HERAUSGESCHOBENES BYTE NACH X UMSPEICHERN 

0CB6 32 IC 41 

LD 


0CB9 78 

LD 

A,B 

SIGN ZI = SIGN Z2? 

OCBA B7 

OR 

A 


OCBB F2 CF OC 

JP 

P,OCCF 

NEIN , SUBTRAKTION 


ADDITION DER MANTISSEN 

OCBE CD 33 OD 

CALL 

OD33 

MANTISSENADDITIONA, UEBERLAUF? 

0CC1 D2 OE OD 

JP 

NC,ÖDOE 

NEIN, ZUM SCHLUSS 

0CC4 EB 

EX 

DE, HL 
(HL) 

HL AÜF EXP X 

0CC5 34 

INC 

EXP X + 1, UEBERLAUF? 

0CC6 CA B2 07 

JP 

Z.07B2 

JA, OV-ERROR 

0CC9 CD 90 OD 

CALL 

0D90 

MANTISSE UM EIN BIT RECHTS SCHIEBEN 

OCCC C3 OE OD 

JP 

ODOE 

ZUM SCHLUSS 


SUBTRAKTION DER MANTISSEN 

OCCF CD 45 OD 

CALL 

OD45 

MANTISSENSUBTRAKTION 

0CD2 21 25 41 

LD 

HL.4125 

ZEIGER AUF SlCN-FLAG 

0CD5 DC 57 OD 

CALL C,ÖD57 

NORMALISIERUNG 

UNTERLAUF? —> MX = 0 - MX, SIGN-FLAG KOMPLEMENTIEREN 

0CD8 AF 

XOR 

A 

VERSCHIEBUNGSZAEHLER = 0 

0CD9 47 

LD 

B,A 


OCDA 3A 23 41 

LD 

A,(4123) 

MSB X LADEN 

OCDD B7 

OR 

A 

= 0 ? 

OCDE 20 IE 

JR 

NZ,OCFE 

NEIN 

OCEO 21 IC 41 

LD 

HL,411C 

JA, X 1 BYTE LINKS SCHIEBEN 

0CE3 OE 08 

LD 

C ,08 

BYTEZAEHLER 

0CE5 56 

LD 

D, (HL) 

(hl),a 

BYTE LADEN 

0CE6 77 

LD 

LETZTES BYTE AN DIESE POSITION 

0CE7 7A 

LD 

A,D 


0CE8 23 

INC 

HL 

ZEIGER INC. 

0CE9 OD 

DEC 

C 

FERTIG? 

OCEÄ 20 F9 

JR 

NZ,0CE5 

;NEIN, WEITER 

OCEC 78 

LD 

A,B 

VERSCHIEBUNGSZAEHLER - 8 

OCED D6 08 

SUB 

08 

; 40 VERSCHIEBUNGEN VORGENOMMEN? (X = 0) 

OCEF FE CO 

CP 

CO 

0CF1 20 E6 

JR 

NZ.0CD9 

;NEIN, WEITER 

0CF3 C3 78 07 

JP 0778 

NORMALISIERUNG 2 

;JA, X=0, FERTIG 

0CF6 05 

DEC 

B 

VERSCHIEBUNGEN - 1 

0CF7 21 IC 41 

LD 

HL,411C 

ZEIGER AUF LSB X 

OCFA CD 97 OD 

CALL 

OD97 

X UM EIN BIT LINKS VERSCHIEBEN 

OCFD B7 

OR 

A 

HOECHSTWERTIGSTES BIT GESETZT? 

OCFE F2 F6 OC 

JP 

P, 0CF6 

NEIN, WEITER 

0D01 78 

LD 

A,B 

ANZAHL DER VERSCHIEBUNGEN = 0? 

ODO2 B7 

OR 

A 


0D03 28 09 

JR 

Z, ODOE 

JA, ZUM SCHLUSS 

0D05 21 24 41 

LD 

HL,4124 

ZEIGER AUF EXP X 

0D08 86 

ADD 

(HL) 

VERSCHIEBUNGEN + EXP X ERGIBT NEUEN EXP X 

ODO9 77 

LD 

(HL),A 

ABSPEICHEREN 

ODOÄ D2 78 07 

JP 

NC,0778 

UNTERLAUF? —> JA, X=0, FERTIG 

ODOD C8 

RET 

Z 

X=0? —> FERTIG 

ODOE 3A IC 41 

LD 

A, (41 IC) 

HOECHSTWERTIGSTES BIT VON LSB X = 0? 

0D11 B7 

OR 

A 


0D12 FC 20 OD 

CALL 

M,0D20 

NEIN, X RUNDEN 

0D15 21 25 41 

LD 

HL,4125 

ZEIGER AUF SIGN FLAG 

0D18 7E 

LD 

A,(HL) 

LADEN UND SIGN-FLAG HERAUSBLENDEN 

0D19 E6 80 

AND 

80 


0D1B 2B 

DEC 

HL 

ZEIGER AUF MSB X 

0D1C 2B 

DEC 

HL 

SIGN-FLAG INVERTIEREN UND MIT MSB X VERKNUEPFEN 

0D1D AE 

XOR 

[hl],A 

0D1E 77 

0D1F C9 

LD 

RET 

UND MSB X MIT SIGN ABSPEICHERN 
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0D20 

21 

ID 

41 

LD 

HL,411D 

0D23 

06 

07 


LD 

B,67 

OD25 

34 



INC 

(HL) 

0D26 

CO 



RET 

NZ 

0D27 

23 



INC 

HL 

0D28 05 



DEC 

B 

0D29 

20 

FA 


JR 

NZ.0D25 

0D2B 

34 



INC 

(Hi) 

0D2C 

CA 

B2 

07 

JP 

Z,07B2 

0D2F 

2B 



DEC 

HL 

0D30 

36 

80 


LD 

(HL),80 

OD32 

C9 



RET 



ZEIGER AUF LSB X 
7 BYTES (MANTISSE) 

BYTE 4- 1 , UEBERI/AUF? 

NEIN, FERTIG 

JA, NAECHSTES BYTE 

FERTIG? 

NEIN, WEITER 

CARRY DURCH GANZE MANTISSE: EXP X + 1, UEBERLAUF? 
JA, OV-ERROR 
MSB X = 80 





UP 

DMADD 

(AF,C=00,DE=4124,HL=412E) 





DOUBLEMANTISSENADDITION 





I:MX= 

SUMMAND 






MY= 

SUMMAND 






0:MX= 

SUMME 


OD33 

21 

27 

41 

LD 

HL,4127 

ZEIGER AUF LSB Y 

OD36 

11 

ID 

41 

LD 

DE.411D 

ZEIGER AUF LSB X 

OD39 OE 07 


LD 

C,Ö7 

7 BYTES 

0D3B 

AF 



XOR 

A 

CARRY LOESCHEN 

0D3C 

1 A 



LD 

A,(DE) 

BYTE AUS X LADEN 

0D3D 

8 E 



ADC 

(HL) 

BYTE AUS Y ADDIEREN 

0D3E 

12 



LD 

(DE),A 

UND SUMME IN X APSPEICHERN 

0D3F 

13 



INC 

DE 

ZEIGER INC. 

0D40 

23 



INC 

HL 


0D41 

OD 



DEC 

c 

FERTIG? 

0D42 

20 

F8 


JR 

NZ,0D3C 

NEIN, WEITER 

0D44 

C9 



RET 



UP 


DMSUB (AF,C=00,DE=4124,H1=412E) 
DOUBLEMANTISSENSUBTRAKTION 
I:MX=MINUEND 
MY=SUBTRAHENT 
0:MX=DIFFERENZ 


OD45 21 

27 

41 

LD 

HL,4127 

ZEIGER AUF LSB Y 

0D48 11 

ID 

41 

LD 

DE,411D 

ZEIGER AUF LSB X 

0D4B OE 

07 


LD 

C ,07 

7 BYTES 

0D4D AF 



XOR 

A 

CARRY LOESCHEN 

0D4E 1A 



LD 

A,(DE) 

BYTE AUS X LADEN 

0D4F 9E 



SBC 

(HL) 

BYTE AUS Y SUBTRAHIEREN 

0D50 12 



LD 

(DE),A 

UND DIFFERENZ IN X ABSPEICHERN 

0D51 13 



INC 

DE 

ZEIGER INC. 

0D52 23 



INC 

HL 


OD53 OD 



DEC 

C 

FERTIG? 

OD54 20 

F8 


JR 

NZ,0D4E 

NEIN, WEITER 

0D56 C9 



RET 






MANTISSE VON X KOMPLEMTIEREN 

OD57 7E 



LD 

A,(HL) 

SIGN-ELAG KOMPLEMENTIEREN 

0D58 2F 



CPL 



0D59 77 



LD 

(hl),a 


0D5A 21 

IC 

41 

LD 

HL.411C 

ZEIGER AUF LSB X 

0D5D 06 

08 


LD 

B,Ö8 

8 BYTES 

0D5F AF 



XOR 

A 


0D60 4F 



LD 

C,A 

C = 0 

0D61 79 



LD 

A,C 

A = 0 

0D62 9E 



SBC 

(FL) 

BYTE VON 0 AEZIEHEN UN WIEDER 

OD63 77 



LD 

(1-j),A 


0D64 23 



INC 

HL 

ZEIGER AUF NAECHSTES BYTE 

OD65 05 



DEC 

B 

FERTIG? 

OD66 20 

F9 


JR 

NZ,0D61 

NEIN, WEITER 

0D68 C9 



RET 



OD69 71 



LD 

(HL),C 

MSB ABSPEICHERN 


UP RLMA (AF,C,DE=0000) 

8 SPEICHERZELLEN RECHTS SCHIEBEN 
I:A=ANZAHL DER VERSCHIEBUNGEN 
HL=ZEIGER 

(HL)..(HL-7)=SPEICHERBEREICH 
0:(HL)..(HL-7)=UM A-BIT VERSCHOBEN 


0D6A E5 


PUSH 

HL 

ZEIGER RETTEN 

0D6B D6 

08 

SUB 

08 

8 ODER MEHR VERSCHIEBUNGEN? 

0D6D 38 OE 

JR 

C,0D7D 

NEIN 

0D6F El 


POP 

HL 

ZEIGER ZURUECK 

0D70 E5 


PUSH 

HL 

UND WIEDER RETTEN 

0D71 11 

00 08 

LD 

DE,0800 

BYTEZAEHLER = 8 UND ZWISCHENSPEICHER LOESCHEN 

0D74 4E 


LD 

C, (HL) 

BYTE NACH C 

OD75 73 


LD 

(HL),e 

LETZTES BYTE EINTRÄGEN 

OD76 59 


LD 

E,C 

C IN ZWISCHENSPEICHER 

0D77 2B 


DEC 

HL 

ZEIGER DEC. 

0D78 15 


DEC 

D 

FERTIG? 

OD79 20 

F9 

JR 

NZ.OD74 

NEIN, WEITER 

0D7B 18 

EE 

JR 

0D6B 

WEITER, NAECHSTE BYTEVERSCHIEBUNG 

0D7D C6 

09 

ADD 

09 

VERSCHIEBUNGEN + 1 NACH D 

0D7F 57 


LD 

D,A 


0D80 AF 


XOR 

A 

CARRY LOESCHEN 

0D81 El 


POP 

HL 

ZEIGER ZURUECK 

0D82 15 


DEC 

D 

NOCH EINE VERSCHIEBUNG? 

0D83 C8 


RET 

Z 

NEIN, FERTIG 

0D84 E5 


PUSH 

HL 

ZEIGTE RETTEN 

0D85 IE 

08 

LD 

E,08 

BYTEZAEHLER = 8 

0D87 7E 


LD 

A,(HL) 

BYTE LADEN 

0D88 1F 


RRA 


1 BIT NACH RECHTS SCHIEBEN 

0D89 77 


LD 

(HL),A 

UND WIEDER ABSPEICHERN 

0D8A 2B 


DEC 

HL 

ZEIGER DEC. 

0D8B ID 


DEC 

E 

FER m IG? 
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UDöC 

zu 


JK 

-NZ. 01)87- 

- ';NE1N, WEITER- 

0D8E 

W 

PO 

JR 

0D80 

;NAECHSTE BIT-VERSCHIEBUNG 



UP 

RRX 

(AF,DE=0000,HL= 

=4123) 




SPEICHERBEREICH UM 1 

I BIT RECHTS SCHIEBEN 




I :X= 

^SPEICHERBEREICH 





0:X= 

SPEICHERBEREICH 

UM 1 BIT VERSHOBEN 

0D90 

21 

23 41 

LD 

HL,4123 

;ZEIGER AUF MSB X 

OD93 

16 

01 

LD 

D ,01 

;UM 1 BIT VERSCHIEBEN 

OD95 

18 

ED 

JR 

0D84 



UP RIM (AF,C=0,EL+8) 

SPEICHERBEREICH UM EIN BIT LINKS SCHIEBEN 
I:(HL)..(HL+7^SPEICHERBEREICH 


CY=NACHZUSCHIEBENDES BIT 
0:(HL)..(HL+7)=UM 1 BIT VERSCHOBENER BEREICH 


OD97 

OE 

08 


LD 

C,08 

BYTEZAEHLER = 8 

OD99 

7E 



LD 

A,(HL) 

BYTE LADEN 

0D9A 

17 



RLA 


NACH LINKS VERSCHIEBEN 

0D9B 

77 



LD 

(HL),a 

UND ABSPEICHERN 

0D9C 

23 



INC 

HL 

ZEIGER INC. 

0D9D 

OD 



DEC 

C 

FERTIG? 

0D9E 

20 

F9 


JR 

NZ,0D99 

NEIN, WEITER 

ODAO 

C9 



RET 






UP 

DMLT 

(AF,BC,DE,HL) 






DOUBLEMULTIPLIKATION: 

Z = ZI * Z2 





I:X=FAKTOR 






Y=FAKTOR 






0:X=PR0DUKT 


0DA1 

CD 

55 

09 

CALL 

0955 

ZI (IN X) = 0? 

0DA4 

C8 



RET 

Z 

JA, FERTIG 

0DA5 

CD 

OA 09 

CALL 

090A 

EXP UND VORZEICHEN VERARBEITEN 

0DA8 

CD 

39 

OE 

CALL 

0E39 

MZ1 NACH (414A)..(4150), MX ALS ERGEBNISSPEICHER LOESCHEN 

ODAB 

71 



LD 

(HL),C 

LSB X LOESCHEN 

ODAC 

13 



INC 

DE 

ZEIGER AUF LSB ZI 

ODAD 

06 

07 


LD 

B,07 4 

BYTEZAEHLER = 7 

ODAF 

1 A 



LD 

A. (DE) 

BYTE VON ZI LADEN 

ODBO 

13 



INC 

DE 

ZEIGER INC. 

0DB1 

B7 



OR 

A 

= 0? 

0DB2 

D5 



PUSH 

DE 

ZEIGER RETTEN 

0DB3 

28 

17 


JR 

Z,ODCC 

JA 

0DB5 

OE 

08 


LD 

C ,08 

NEIN, BITZAEHLER = 8 

0DB7 

C5 



PUSH 

BC 

BITZÄEHLER RETTEN 

0DB8 

1F 



RRA 


NAECHSTES BIT GESETZT? 

0DB9 

47 



LD 

B,A 

BYTE NACH B 

ODBA 

DC 

33 

OD 

CALL 

C,OD33 

JA, ZI AUF ERG ADDIEREN 

ODBD 

CD 

90 OD 

CALL 

0D90 

ERG UM EIN BIT NACH RECHTS ROTIEREN 

ODCO 

78 



LD 

A,B 

BYTE ZURUECK 

0DC1 

CI 



POP 

BC 

BITZAEHLER ZURUECK 

0DC2 

OD 



DEC 

C 

BYTE ABGEARBEITET? 

0DC3 

20 

F2 


JR 

NZ.0DB7 

NEIN, NAECHSTES BIT 

0DC5 

Dl 



POP 

DE 

ZEIGER ZURUECK 

0DC6 

05 



DEC 

B 

ALLE 7 BYTES ABGEARBEITET? 

0DC7 

20 

E6 


JR 

NZ,ODAF 

NEIN, NAECHSTES BYTE 

0DC9 

C3 

D8 

OC 

JP 

0CD8 

ZUR NORMALISIERUNG 

ODCC 

21 

23 

41 

LD 

HL,4123 

O-BYTE: ERGEBNIS UM EIN BYTE RECHTSSCHIEBEN 

ODCF 

CD 

70 

OD 

CALL 

0D70 


0DD2 

18 

Fl 


JR 

0DC5 

NAECHSTES BYTE 





KONSTANTE 


0DD4 

00 

00 

00 00 

00 00 

20 84 

KONSTANTE 10 (DOUBLE) 

(0DD8 



00 00 

20 84 

KONSTANTE 10 (SINGLE)) 


UP DDIV10 (AP.BC.DE.HL) 

DOUBLEDIVIDISION DURCH 10D 

I:X=ZAHL 

0:X=ZAHL 


ODDC 

1 1 

D4 

OD 

LD 

DE,0DD4 

ZEIGER AUF KONSTANTE 10D 

ODDF 

21 

27 

41 

LD 

HL,4127 

ZEIGER AUF Y 

0DE2 

CD 

D3 

09 

CALL 

09D3 

KONSTANTE 10D NACH Y 




UP 

DDIV 

(AF,BC,DE,HL) 

/ Z2 





DOUBLEDIVISION: Z = ZI 
I:X=DIVIDENT 





Y=DIVISOR 






0:X= 

yjOTIENT 


0DE5 

3A 

2E 41 

LD 

A, (412E) 

o* 

o 

II 

CM 

IS) 

0DE8 

B7 



OR 

A 


0DE9 

CA 

9A 

19 

JP 

Z.199A 

JA, I/O-ERROR 

ODEC 

CD 

07 09 

CALL 

0907 

VORZEICHEN UND EXPONENTEN VERARBEITEN 

ODEF 

34 



INC 

(HL) 

EXP EFG-KORREKTUR: EXP ERG + 2 

ODFO 

34 



INC 

(HL) 

(0907 ERGIBT EXP X - EXP Y - 1) 

0DF1 

CD 

39 

OE 

CALL 

ÖE39 

MZ1 NACH (414A)..(4150), X ALS ERGEBNISREGISTER 

0DF4 

21 

51 

41 

LD 

HL,4151 
(hl) ,c 

HOECHSTWERTIGSTES BYTE VON ZI =0 

0DF7 

71 


LD 


0DF8 

41 



LD 

B,C 

FLAG LOESCHEN 

0DF9 

11 

4A 

41 

LD 

DE,414A 

ZEIGER AUF ZI 

ODFC 

21 

27 

41 

LD 

HL,4127 

ZEIGER AUF Z2 

ODFF 

CD 

4B 

OD 

CALL 

0D4B 

ZI - Z2 NACH ZI 

0E02 

1A 



LD 

A,(DE) 

MSB ZI LADEN 

0E03 

99 



SBC 

C 

- CY (C=0) 

0E04 

3F 



CCF 


CY KOMPLEMENTIEREN, UNTERLAUF? 

0E05 

38 

OB 


JR 

C,0E12 

NEIN, 1 IN ERG EINSCHIEBEN 

0E07 

11 

4A 

41 

LD 

DE,414A 

JA, SUBTRAKTION RUECKGAENGIG: ZEIGER AUF ZI 

OEOA 

21 

27 

41 

LD 

HL,4127 

ZEIGER AUF Z2 

OEOD 

CD 

39 

OD 

CALL 

OD39 

ZI + Z2 NACH ZI 

0E10 

AF 



XOR 

A 

CARRY LOESCHEN 

0E11 

DA 

12 

04 

JP 

C,0412 

SPRUNG WIRD NIE AUSGEFUEHRT! 


Seite 32 












ROM-Listing für COLOUR-GENIE . Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 


TÜET2- 

T2~ 


—LD- 

(DET,Ä 

MSB ZI ABSPEIUHEHN)- 

(0E13 


04 

INC 

B 

FLAG SETZEN) 

ÖE14 3A 

CM 

41 

LD 

A,(4123) 

MSB ERG NACH A 

0E17 3C 



INC 

A 

BIT 7 GESETZT? 

0E18 3D 



DEC 

A 


0E19 1F 



RRA 


GERADE ERMITTELTES BIT NACH A7 ZUR RUNDUNG 

0E1A FA 

11 

OD 

JP 

M,0D11 

FERTIG, RUNDUNG 

0E1D 17 



RLA 


BIT WIEDER IN CY 

0E1E 21 

ID 

41 

LD 

HL.41 ID 

ZEIGER AUF LSB ERG 

0E21 OE 

07 


LD 

C ,07 

BYTEZAEHLER = 7 

OE23 CD 

99 

OD 

CALL 

OD99 

ERG LINKSROUTIEREN, UND BIT EINSCHIEBEN 

OE26 21 

4A 

41 

LD 

HL,414A 

ZEIGER AUF ZI 

0E29 CD 

97 

OD 

CALL 

0D97 

ZI UM EIN 1 BIT LINKS ROUTIEREN 

0E2C 78 



LD 

A,B 

FLAG GESETZT (D.H. H-BIT EINGESCHOBEN) 


OE2D B7 
0E2E 20 C9 
0E30 21 24 41 
0E33 35 
0E34 20 03 
OE36 C3 B2 07 


OR 

JR 

LD 

DEC 

JR 

JP 


A 

NZ,0DF9 
HL,4124 
(HL) 
NZ.0DF9 
07B2 


JA, WEITER 

NEIN, EXP ERG - 1 

UNTERLAUE? 

NEIN, WEITER 
JA, OV-ERROR 


OE39 

79 



0E3A 

32 

2D 

41 

0E3D 

2B 



0E3E 

11 

50 

41 

0E41 

01 

00 

07 

0E44 

7E 



0E45 

12 



OE46 

71 



0E47 

1B 



0E48 

2B 



0E49 

05 



0E4A 

20 

F8 


0E4C 

C9 




UP FUER DMLT UND 


LD 

LD 

DEC 

LD 

LD 

LD 

LD 

LD 

DEC 

DEC 

DEC 

JR 

RET 


A,C 

(412D),A 

HL 

DE,4150 
BC.0700 
A,(HL) 
DE) ,A 


HL) ,C 
DE 
HL 
B 

NZ,0E44 


DD IV 

;MSB Y (OHNE SIGN) ABSPEICHERN 
;ZEIGER AUE MSB X 

;ZEIGER AUE 3.REGISTER FUER DMLT/DDIV 

;X IN 3-REG UEBERTRAGEN UND LOESCHEN, BYTEZAEHLER=7 

;BYTE VON X LADEN 

;UND ABSPEICHERN 

;UND BYTE VON X LOESCHEN 

;ZEIGER DEC. 

;FERTIG? 

;NEIN, WEITER 


UP DMLT10 (AP,BC,DE,HL) 

DOÜBLEMULTIPLIKATION MIT 10D 
I:X=ZAHL 






0:X=ZAHL 

0E4D 

CD 

FC 

09 

CALL 

09FC 

0E50 

EB 



EX 

DE .HL 

0E51 

2B 



DEC 

HL' 

OE52 

7E 



LD 

A,(HL) 

OE53 

B7 



OR 

A 

OE54 

C8 



RET 

Z 

OE55 

C6 

02 


ADD 

02 

0E57 

DA 

B2 

07 

JP 

C,07B2 
(HL),A 

0E5A 

77 



LD 

0E5B 

E5 



PUSH 

HL 

0E5C 

CD 

77 

OC 

CALL 

0C77 

0E5F 

El 



POP 

HL 

0E60 

34 



INC 

(HL) 

0E61 

CO 



RET 

NZ 

OE62 

C3 

B2 

07 

JP 

07B2 


;ZAHL NACH Y 

;ZEIGER AUF EXP X NACH HL 
;ZAHL = 0? 

;JA, ERG = 0, FERTIG 

;EXP X + 2 (ZAHL * 4 NACH X), UEBEKLAUF? 

;JA, OV-ERROR 

;EXP X WIEDER ABSPEICHERN 

;ZEIGER AUF EXP X RETTEN 

;X + Y NACH X (X = 5 * ZAHL) 

;ZEIGER AUF EXP X ZURUECK 

;EXP X + 1 (X = 10D * ZAHL), UEBERLAUF? 

;NEIN, FERTIG 

;JA, OV-ERROR 


UP DVAL (AF,BC,DE,HL=P) 

WANDELT STRING IN ZAHL (DOUBLE) UM 

I:HL=ZEIGER AUF STRING 

0:X=ZAHL 


OE65 

CD 

78 

07 

CALL 

0778 

ii 

o 


0E68 

CD 

EC 

OA 

CALL 

OAEC 

;TYPX = 

DOUBLE 

0E6B 

F6 

AF 


OR 

AF 

;FLAG Z 

= 0 


UP LVAL (AF,BC,DE,HL=P) 

WANDELT STRING IN ZAHL PASSENDEN TYPS UM 
I:HL=ZEIGER AUF STRING 


0:X=ZAHL 


(0E6C 

AF 


XOR 

A 

0E6D 

EB 



EX 

DE, HL 

0E6E 

01 

FF 

00 

LD 

BC,OOFF 

0E71 

60 



LD 

H,B 

0E72 

68 



LD 

L,B 

OE73 

CC 

9A 

OA 

CALL 

Z,0A9A 

0E76 

EB 



EX 

DE. HL 

a,(hl) 

0E77 

7E 



LD 

0E78 

FE 

2D 


CP 

2D 

0E7A 

F5 



PUSH 

AF 

0E7B 

CA 

83 

OE 

JP 

■ Z,0E83 

0E7E 

FE 

2B 


CP 

2B 

0E80 

28 

01 


JR 

Z,0E83 

0E82 

2B 



DEC 

HL 

0E83 

D7 



RST 

10 

0E84 

DA 

29 

OF 

JP 

C,0F29 

0E87 

FE 

2E 


CP 

2E 

0E89 

CA 

E4 

OE 

JP 

Z,0EE4 

0E8C 

FE 

45 


CP 

45 

0E8E 

28 

14 


JR 

Z,0EA4 

0E90 

FE 

25 


CP 

25 

0E92 

CA 

EE 

OE 

JP 

Z,OEEE 

23 

OE95 

FE 

23 


CP 

0E97 

CA 

F5 

OE 

JP 

Z,0EF5 

21 

0E9A 

FE 

21 


CP 

0E9C 

CA 

F6 

OE 

JP 

Z,0EF6 

0E9F 

FE 

44 


CP 

44 

0EA1 

20 

24 


JR 

NZ,0EC7 





EXPONENT ERMITTELN 

0EA3 

B7 



OR 

A 


FLAG Z - 1) 

POINTER NACH DE 

NACHKOMMAST.=0, '.'-FLAG = FF (NACH PUNKT 0) 

HL = 0 

ANSPRUNG LVAL? —> X = 0, TYPX = INTEGER 
POINTER ZURUECK, EXP-SIGN-FLAG (D) UND EXP (E) LOESCHEN 
ZEICHEN LADEN 
='-'?, JA Z=1 
VORZEICHENFLAG RETTEN 
JA, NAECHSTES ZEICHEN 
= '+'? 

JA, NAECHSTES ZEICHEN 

KEIN -VORZEICHEN, POINTER ZURUECK 

NAECHSTES ZEICHEN, ZIFFER? 

JA 

= '.'? 

JA 

= 'E'? (EXPKENNUNG BEI SINGLE) 

JA 

= '£'? (ZAHL ALS INTEGER BETRACHTEN) 

JA 

= '§'? (ZAHL ALS DOUBLE BETRACHTEN) 

JA 

= ' I '9 

ja ‘zähl als single betrachten 

= D'? (EXPKENNUNG BEI DOUBLE) 

NEIN 


;FLAG FUER NACHFOLGENDE TYPANPASSUNG 
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(JEA'4 uir 

W 

UE- 

—CALL— 

ÖEFB 

ZAHL IN SINGLE TZ==T; ODER DOUBLE TZ=u) UMWÄNUELN 

OEA7 E5 



PUSH 

HL 

POINTER RETTEN 

0EA8 21 

BD 

OE 

LD 

HL,OEBD 

RUECKSPRUNGADRESSE 

OEAB E3 



EX 

(SP),HL 

MIT POINTER VERTAUSCHEN 

OEAC D7 



RST 

10 

NAECHSTES ZEICHEN 

OEAD 15 



DEC 

D 

EXP-SIGN-FLAG AUF '-' 

OEAE FE 

CE 


CP 

CE 

= '-'? (TOKEN) 

OEBO C8 



RET 

Z 

JA 

OEB1 FE 

2D 


CP 

2D 

= '-'? 

OEB3 C8 



RET 

Z 

JA 

OEB4 14 



INC 

D 

EXP-SIGN-FLAG AUF '+' 

OEB5 FE 

CD 


CP 

CD 

= '+'? (TOKEN) 

OEB7 C8 



RET 

Z 

JA 

0EB8 FE 

2B 


CP 

2B 

= '+'? 

OEBA C8 



RET 

Z 

JA 

OEBB 2B 



DEC 

HL 

KEIN VORZEICHEN: POINTER ZURUECK 

OEBC Fl 



POP 

AF 

RUECKSPRUNGADRESSE ENTFERNEN 

OEBD D7 



RST 

10 

NAECHSTES ZEICHEN, ZIFFER? 

OEBE DA 

94 

OF 

JP 

C,OF94 

JA 

OEC1 14 



INC 

D 

NEIN, EXP FERTIG: EXP-SIGN-FLAG = '-'? 

OEC2 20 

03 


JR 

NZ.0EC7 

NEIN 

0EC4 AF 



XOR 

A 

JA, EXP = - EXP: A=0 

0EC5 93 



SUB 

E 

0 - EXP NACH EXP 

0EC6 5F 



LD 

E,A 


0EC7 E5 



PUSH 

HL 

POINTER RETTEN 

0EC8 7B 



LD 

A,E 

EXP - NACHKOMMASTELLEN NACH A 

OEC9 90 



SUB 

B 

DIIFFERENZ > 0? 

OECA F4 

OA 

OF 

CALL 

P.OFOA 

JA, ZAHL * 10D, DIF - 1 

OECD FC 

18 

OF 

CALL 

M,0F18 

NEIN, ZAHL / 10D, DIF + 1 

OEDO 20 

F8 


JR 

NZ,OECA 

BIS DIF = 0 

0ED2 El 



POP 

HL 

POINTER ZURUECK 

0ED3 Fl 



POP 

AF 

SIGN-FLAG ZURUECK 

0ED4 E5 



PUSH 

HL 

POINTER WIEDER RETTEN 

0ED5 CC 

7B 09 

CALL 

Z.097B 

SIGN-FLAG = '-'?—> X = - X 

0ED8 El 



POP 

HL 

POINTER ZURUECK 

0ED9 E7 



RST 

20 

TYP TESTEN 

OEDA E8 



RET 

PE 

DOUBLE? —> FERTIG 

OEDB E5 



PUSH 

HL 

POINTER RETTEN 

OEDC 21 

90 08 

LD 

HL,0890 

RUECKSPRUNGADRESSE SETZEN (POP HL, RET) 

OEDF E5 



PUSH 

HL 


OEEO CD 

A3 

OA 

CALL 

0AA3 

SINGLE WENN MOEGLICH IN INTEGER UMWANDELN 

0EE3 C9 



RET 


POINTER ZURUECK (0890) UND FERTIG 




DEZIMALPUNKT VERARBEITEN 

0EE4 E7 



RST 

20 

TYP TESTEN 

0EE5 OC 



INC 

C 

'.'-FLAG = 0?, (D.H. SCHON EIN '.') 

0EE6 20 

DF 


JR 

NZ,0EC7 

JA, FERTIG 

0EE8 DC 

FB 

OE 

CALL 

C,OEFB 

SINGLE, INTEGER —> IN SINGLE UMWANDELN 

OEEB C3 

83 

OE 

JP 

OK33 

NAECHSTES ZEICHEN 

OEEE E7 



'r 

RST 

20 

;TYP TESTEN 

OEEF F2 

97 

19 

JP 

P,1997 

;KEIN INTEGER? —> SN-ERROR 

0EF2 23 



INC 

HL 

;POINTER INC. 

0EF3 18 

D2 


JR 

0EC7 

; FERTIG 

0EF5 B7 



'§' 

OR 

A 

;FLAG FÜER TYPANPASSUNG 

0EF6 CD 

FB 

OE 

' i ' 

CALL 

OEFB 

;X IN SINGLE ODER DOUBLE (Z = 0) UMWANDELN 

0EF9 18 F7 


JR 

0EF2 

; WEITER 


UP CREAL (AF) 

WANDELT ZAHL IN SINGLE ODER DOUBLE UM 
I:Z=1, UMWANDLUNG IN SINGLE 
Z=0. UMWANDLUNG IN DOUBLE 
X=ZÄHL 
0:X=ZAEL 


OEFB E5 



PUSH 

HL 

;REGISTER RETTEN 



OEFC D5 



PUSH 

DE 




OEFD C5 



PUSH 

BC 




OEFE F5 



PUSH 

AF 

;FLAG RETTEN 



OEFF CC 

Bl 

OA 

CALL 

Z,0AB1 

;Z=1? —> ZAHL IN 

SINGLE 

UMWANDELN 

0F02 Fl 



POP 

AF 

;FLAG ZURUECK 



0F03 C4 

DB 

OA 

CALL 

NZ,0ADB 

;Z=0? —> ZAHL IN 

DOUBLE 

UMWANDELN 

0F06 CI 



POP 

BC 

;REGISTER ZURUECK 



0F07 Dl 



POP 

DE 




0F08 El 



POP 

HL 




0F09 C9 



RET 






UP RMLTIO (AF,BC,DE,HL) 

MULTIPLIZIERT REELLE ZAHL MIT 10D 




I:X=ZAHL 






Z=0 







0:X=ZAHL 




OFOA C8 


RET 

Z 

Z = 1?, ZURUECK 



OFOB F5 


PUSH 

AF 

A RETTEN 



OFOC E7 


RST 

20 

TYP TESTEN 



OFOD F5 


PUSH 

AF 

TYP-FLAG RETTEN 



OFOE E4 

3E 09 

CALL 

P0,O93E 

DOUBLE? —> MULTIPLIKATION 

MIT 

10D 

0F11 Fl 


POP 

AF 

TYP-FLAG ZURUECK 



0F12 EC 

4D OE 

CALL 

PE,0E4D 

SINGLE? —> MULTIPLIKATION 

MIT 

10D 

0F15 Fl 


POP 

AF 

A ZURUECK 



0F16 3D 


DEC 

A 

A - 1 NACH A 



0F17 C9 


RET 






UP RDIVIO (A+1,BC) 

DIVIDIERT REELLE ZAHL DURCH 10D 
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irx^zsED- 






0:X=ZAHL 


OPI 8 

D5 



PUSH 

DE 

;DE UND HL RETTEN 

OPI 9 

E5 



PUSH 

HL 


OPI A 

F5 



PUSH 

AP 

;AP RETTEN 

0 F1B 

E7 



RST 

20 

;TYP TESTEN 

OP1C 

F5 



PUSH 

AP 

;TYP-PL AG RETTEN 

OPI D 

E4 

97 08 

CALL 

PO,0897 

;SINGLE? —> DIVISION DURCH 10D 

0P20 

PI 



POP 

AP 

;TYP-PLAG ZURUECK 

OP21 

EC 

DC 

OD 

CALL 

PE.ODDC 

;DOUBLE? —> DIVISION DURCH 10D 

OP24 

PI 



POP 

AP 

;AP, HL UND DE ZURUECK 

OP25 

El 



POP 

HL 


OP26 

Dl 



POP 

DE 


OF27 

3C 



INC 

A 

;A + 1 NACH A 

0P28 

C9 



RET 







ZIPPER 

VERARBEITEN 


OP29 

D5 



PUSH 

DE 

;SIGN-FLAG-EXP UND EXP RETTEN 

OP2A 

78 



LD 

A,B 

;NACHKOMMASTEILEN + 1, WENN '.'-PLAG 

OP2B 

89 



ADC 

C 

;(CY IST GESETZT (!)) 

0P2C 

47 



LD 

B,A 


OP2D 

C5 



PUSH 

BC 

;NACHKOMMASTELLEN UND PLAG RETTEN 

OP2E 

E5 



PUSH 

HL 

;POINTER RETTEN 

OP2P 

7E 



LD 

A,(HL) 

; ZIFFER LADEN 

0P30 

D6 

30 


SUB 

30 

;-'0' ERGIBT WERT IN A 

OF32 

F5 



PUSH 

AP 

;RETTEN 

OP33 

E7 



RST 

20 

{TYP TESTEN 

OP34 

P2 

5D 

OP 

JP 

P.0P5D 

;SINGLE, DOUBLE? —> SPRUNG 





INTEGER 


OP37 

2A 

21 

41 

LD 

HL,(4121) 

;X LADEN 

0P3A 

11 

CD 

OC 

LD 

DE,OCCD 

;>= 3277D? (D.H. 10D * X >= 32770D) 

0F3D 

DP 



RST 

18 


OP3E 

30 

19 


JR 

NC,OF59 

;JA, IN SINGLE UMWANDELN 

0P40 

54 



LD 

D,H 

;ZAHL MAL 10D: ZAHL NACH HL 

OP41 

5D 



LD 

E,L 


OP42 

29 



ADD 

HL,HL 

;ZAHL * 4 

OP43 

29 



ADD 

HL ,HL 


OP44 

19 



ADD 

HL f DE 

;ZAHL * 5 

OP45 

29 



ADD 

HL,HL 

;ZAHL * 10D 

OP46 

PI 



POP 

AP 

;ZIPPER ZURUECK 

OP47 

4P 



LD 

C,A 

;NACH BC (B IST 0) 

0P48 

09 



ADD 

HL,BC 

;UND AUF ZAHL ADDIEREN 

0P49 

7C 



LD 

A,H 

;NEUE ZAHL > 32767D? 

OP4A 

B7 



OR 

A 


OP4B 

PA 

57 OP 

JP 

M,OF57 

;JA, IN SINGLE UMWANDELN 

OF4E 

22 

21 

41 

LD 

(4121),HL 

;NEUE ZAHL NACH X 

OF51 

El 



POP 

HL 

;POINTER ZURUECK 

OP52 

CI 



POP 

BC 

;NACHKOMMASTELLEN UND PLAG ZURUECK 

OP53 

Dl 



POP 

DE 

;EXP-SIGN-PLAG UND EXP ZURUECK 

OP54 

C3 

83 

OE 

JP 

0E83 

;NAECHSTES ZEICHEN 

OP57 

79 



LD 

A,C 

;ZIPPER RETTEN 

OF58 

F5 



PUSH 

AP 


OP59 

CD 

CC 

OA 

CALL 

OACC 

;HL (OHNE SIGN) IN SINGLE UMWANDELN 

OP5C 

37 



SCP 


;NAECHSTEN SPRUNG IGNORIEREN 

OP5D 

30 

18 


JR 

NC,OF77 

; DOUBLE? —> SPRUNG 





SINGLE 



OP5P 

01 

74 

94 

LD 

BC,9474 

;KONSTANTE 1E6 NACH Y 

0F62 

11 

00 

24 

LD 

DE,2400 


OP65 

CD 

OC 

OA 

CALL 

OAOC 

;ZAHL >= 1E6? 

0P68 

F2 

74 

OP 

JP 

P,0F74 

; JA, IN DOUBLE UMWANDELN 

0P6B 

CD 

3E 09 

CALL 

093E 

;ZAHL MAL 10D 

0P6E 

Fl 



POP 

AP 

{ZIPPER ZURUECK 

OP6P 

CD 

89 

OP 

CALL 

0F89 

{UND AUPADDIEREN 

OP72 

18 

DD 


JR 

0F51 

{WEITER 





DOUBLE 



OP74 

CD 

E3 

OA 

CALL 

0AE3 

{ZAHL IN DOUBLE UMWANDELN 

0P77 

CD 

4D 

OE 

CALL 

0E4D 

{ZAHL * 10D 

OP7A 

CD 

PC 

09 

CALL 

09FC 

{ZAHL NACH Y 

0F7D 

PI 



POP 

AP 

{ZIFFER ZURUECK 

0P7E 

CD 

64 09 

CALL 

0964 

{NACH X ALS SINGLE 

0P81 

CD 

E3 

OA 

CALL 

0AE3 

;IN DOUBLE UMWANDELN 

0P84 

CD 

77 

OC 

CALL 

0C77 

{UND AUPADDIEREN 

0P87 

18 

C8 


JR 

0P51 

{WEITER 




UP 

SADDA 

(AP,BC,DE,HL) 






SUMME BILDEN 






I:X=SUMMAND 



A=SUMMAND (SIGNED 8-BIT-INTEGER) 
0:X=SUMME 


0F89 

CD 

A4 

09 

CALL 

09A4 

1.SUMMAND AUP STACK RETTEN 

0P8C 

CD 

64 

09 

CALL 

0964 

2.SUMMAND ALS SINGLE NACH X 

0P8P 

CI 


POP 

BC 

1.SUMMAND ZURUECK 

0F90 

Dl 



POP 

DE 

NACH Y 

0F91 

C3 

16 

07 

JP 

0716 

SUMME BILDEN 





EXPONENTENZIPPER VERARBEITEN 

0F94 

7B 



LD 

A,E 

EXP > 9? 

OP95 

PE 

OA 


CP 

OA 


0P97 

30 

09 


JR 

NC,0FA2 

JA, UEBERLAUF ERZEUGEN 

0P99 

07 



RLCA 


EXP * 1QL 

0P9A 

07 



RLCA 



0P9B 

83 



ADD 

E 


0F9C 

07 



RLCA 

(BL) 


0P9D 

86 



ADD 

ZEICHEN ADDIEREN 

0P9E 

D6 

30 


SUB 

30 

'0' ABZIEHEN 

OPÄO 

5F 



LD 

E,A 

NEUER EXP 


Röckrath 
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UFAT PA 

TE"32 

—JP- 

M.321E 

(0PA2 

IE 32 

LD 

E,32 

0PA4 C3 

BD OE 

JP 

OEBD 
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fWlHD NiJS AUSGEFUEHHT- - 

;EXP = 32, RUFT UEBERLAUF HERVOR) 

;NAECHSTE ZIPPER 


UP 


OPA7 E5 
0PA8 21 24 19 
OPAB CD A7 28 
OFAE El 


PRZNR1 (AP,BC,DE,Hl) 

' IN ' ZEI1ENNUMMER AUSGEBEN 
I:HL=ZEILENNUMMER 
0 :/ 


PUSH Hl 

LD HL,1924 

CA11 28A7 

POP Hl 


ZNR RETTEN 

ZEIGER AUF TEXT ' IN ' 
' IN ' AUSGEBEN 
ZNR ZURUECK 


OPAP CD 9A OA 
OPB2 AP 
OFB3 CD 34 10 
0PB6 B6 
0PB7 CD D9 OP 
OPBA C3 A6 28 


PRZNR (AP,BC,DE,Hl) 
ZEILENNUMMER AUSGEBEN 
I:HL=ZEILENNUMMER 
0 :/ 

CALL 0A9A 

XOR A 

CALL 1034 

OR (Hl) 

CALL 0FD9 

JP 28A6 


AIS INTEGER NACH X 

PORMATPLAG LOESCHEN 

ABSPEICHERN UND BUFFER INITIALISIEREN 

X ALS INTEGER OHNE (!) VORZEICHEN 

IN STRING UMWANDELN 

UND DIESEN AUSDRUCKEN 


UP USTR (AF,BC,DE,HL) 

WANDELT ZAHL IN UNFORMATIERTEN STRING UM 
I:X=ZAHL 

0:(HL)..=STRING MIT 0 ABGESCHLOSSEN 
OPBD AP XOR A ;PORMATPLAG LOESCHEN 


OPBE 

CD 

34 

10 

0PC1 

E6 

08 


0PC3 

28 

02 


0FC5 

36 

2B 


0PC7 

EB 



0PC8 

CD 

94 

09 

OPCB 

EB 



OPCC 

F2 

D9 

OP 

OPCP 36 

2D 


0 PD1 

C5 



0PD2 

E5 



0FD3 

CD 

7B 09 

0 PD6 

El 



0FD7 

CI 



0PD8 

B4 



0PD9 

23 



OPDA 36 

30 


OPDC 

3A 

D8 

40 

OPDP 

57 



OPEO 

17 



0PE1 

3A 

AP 

40 

0FE4 

DA 

9A 

10 

0FE7 

CA 

92 

10 

OPEA 

PE 

04 


OPEC 

D2 

3D 

10 


PSTR (AP,BC,DE,HL) 

WANDELT ZAHL IN FORMATIERTEN STRING UM 
I:X=ZAHL 

A=FORMATFLAG: 

BITO:EXPONENTENAUSGABE 
BIT1:N. V. 

BIT2 rVORZEICHEN HINTER ZAHL 

BIT3:'+' AUCH DRUCKEN 

BIT4:'$' VOR ZAHL DRUCKEN 

BIT5 rPUEHRENDE LEERRAEUME MIT AUSPUELLEN 

BIT6 :',' AUSGEBEN 

BIT7rPORMATIERUNG UEBERHAUPT DURCHPUEHREN 
B=VORKOMMAPELDLAENGE (= ANZAHL DER VORKOMMASTELLEN) 
C=NACHKOMMAFELDLAENGE (= ANZAHL DER NACHKOMMASTELLEN + 1 (PUER 
0:(HL).^FORMATIERTER STRING MIT 0 ABGESCHLOSSEN 


’.')) 


CALL 

AND 

JR 

LD 

EX 

CALL 

EX 

JP 

LD 

PUSH 

PUSH 

CALL 

POP 

POP 

OR 

INC 

LD 

LD 

LD 

RLA 

LD 

JP 

JP 

CP 

JP 


1034 
08 

Z,0FC7 

(HL),2B 

DE, HL 

0994 

DE, HL 

P,0FD9 

(HL),2D 

BC 

HL 

097B 

HL 

BC 

H 

HL 

(HL),30 
A,(40D8) 
D,A 

A,(40AP) 
C,109A 

Z, 1092 
04 

NC,103D 


BUFFERANFANG (4130) NACH HL, PORMATPLAG ABSPEICHERN 
+ AUCH AUSGEBEN? (BIT 3 DES PORMATPLAGS GESETZT) 
NEIN 

'+' IN BUFFER 
BUPPERZEIGER -NACH DE 
ZAHL >= 0? 

BUPPERZEIGER NACH HL 
JA 

IN LUFFER 

FELDPARAMETER RETTEN 
BUPPERZEIGER RETTEN 
VORZEICHEN ENTFERNEN 
BUPPERZEIGER ZURUECK 
PELDPARAMETER ZURUECK 
NULLPLAG ZURUECKSETZEN 
BUPPERZEIGER INC. 

'0' IN BUFFER 
PORMATPLAG NACH D 

;FORMATIERUNG ERWUENSCHT? 

;TYPX LADEN 
; JA 

;ZAHL = 0? —> SPRUNG 
;SINGLE ODER DOUBLE? 

; JA 


OPEP 01 00 00 
0PP2 CD 2F 13 


INTEGER IN STRING UMWANDELN 

LD BC,0000 ;PARAMETER PUER UND LOESCHEN (KEIN UND KEIN 

CALL 132P ;STRING ERZEUGEN 


0FF5 21 30 41 
0PP8 46 
0FF9 OE 20 
OPPB 3A D8 40 
OPPE 5F 
OFFF E6 20 
1001 28 07 

1003 78 

1004 B9 

1005 OE 2A 
1007 20 01 

1009 41 
100A 71 
1OOB D7 
100C 28 14 
1OOE PE 45 

1010 28 10 
1012 PE 44 
1014 28 OC 
1016 PE 30 
1018 28 PO 
101A PE 2C 
101C 28 EC 


PORMATPLAG BIT 2-5 VERARBEITEN 

;BUPPERZEIGER AUF BUPFERANFANG 
;VORZEICHEN AUS BUFFER LADEN 
;SPACE NACH FILLCHAR 
;PORMATPLAG LADEN 
;NACH E 

;MIT AUSPUELLEN? (BIT 5 VON PLAG GESETZT) 
;NEIN 

;VORZEICHEN = SPACE? 


LD 

LD 

LD 

LD 

LD 

AND 

JR 

LD 

CP 

LD 

JR 

LD 

LD 

RST 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 


Hl.4130 

B, (HL) 

C, 20 

A,(40D8) 
E,A 
20 

Z, 10OA 

A, B 
C 

C ,2A 
NZ,1OOA 

B, C 
(HL),C 
10 

Z, 1022 
45 

Z, 1022 
44 

Z,1022 

30 

Z, 10OA 
2C 

Z, 10OA 


FILLCHAR = 

NEIN 

VORZEICHEN = FILLCHAR 
FILLCHAR IN BUFFER 
NAECHSTES ZEICHEN, ZEILENENDE? 
JA, NICHT WEITER FUELLEN 
= SINGLEEXPKENNUNG? 

JA, NICHT WEITER FUELLEN 
= DOUBLEEXPKENNUNG? 

JA, NICHT WEITER FUELLEN 
= ' 0 '? 

JA, WEITERPUELLEN 
- * '? 

JA,’WEITERFUELLEN 
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TÜTET 

TE~ 

■ZET 


—pp- 

2E 

— # V 


1020 

20 

03 


JR 

NZ,1025 

NEIN, NICHT WEITER FUELLEN 


1022 

2B 



DEC 

HL 

VOR '.','E' UND 'D' EINE NULL EINFUEGEN: BUFFERZEIGER DEC. 


1023 

36 

30 


LD 

(HL),30 

'0' IN BUFFER 


1023 

7B 



ID 

A.E 

DOLLAR VOR ZAHL? 


1026 

E6 

10 


AND 

1 Ö 

(BIT 4 VON FORMATFLAG GESETZT) 


1028 

28 

03 


JR 

Z,102D 

NEIN 


102A 

2B 



DEC 

HL 

BUFFERZEIGER ZURUECK 


102B 

36 

24 


LD 

(HL),24 

'$' IN BUFFER 


102D 

7B 



LD 

A,E 

VORZEICHEN HINTER ZAHL? 


102E 

E6 

04 


AND 

04 

(BIT 2 VON FORMATFLAG GESETZT) 


1030 

CO 



RET 

NZ 

JA, FERTIG 


1031 

2B 



DEC 

HL 

BUFFERZEIGER VOR ZAHL 


1032 

70 



LD 

(HL),B 

VORZEICHEN IN BUFFER 


1033 

C9 



RET 








BUFFER 

INITIALISIEREN 

UND FORMATFLAG ABSPEICHRN 


1034 

32 

D8 

40 

LD 

(40D8),A 

FORMATFLAG ABSPEICHERN 


1037 

21 

30 

41 

LD 

HL,4130 

BUFFERANFANG NACH HL 


103A 

36 

20 


LD 

(HL),20 

SPACE ALS 1.ZETCHEN IN BUFFER 


103C 

C9 



RET 








SINGLE 

UND DOUBLE IN STRING UMWANDELN (UNFORMATIERT) 


103D 

PE 

05 


CP 

05 

GENAUIGKEIT FUER SINGLE UND DOUBLE ERMITTELN: SINGLE? —> CY=1 


103F 

E5 



PUSH 

HL 

BUFFERZEIGER RETTEN 


1040 

DE 

00 


SBC 

00 

TYP - CY NACH A 


1042 

17 



RLA 


* 2 ERGIBT GENAUIGKEIT (SINGLE = 6, DOUBLE = 16D STELLEN) 


1043 

57 



LD 

D,A 

GENAUIGKEIT NACH D 


1044 

14 



INC 

D 

GENAUIGKEIT + 1 


1045 

CD 

01 

12 

CALL 

1201 

1O-EXPONENT ERMITTELN: A=10-EXP - GENAUIGKEIT (6.16D) + 1 


1048 

01 

00 

03 

LD 

BC,0300 

PARAMETER FUER UND SETZEN: '.' NACH DER 1.ZIFFER, KEIN ' 


104B 

82 



ADD 

D 

10-EXP + 2 >= 0? (ZAHL >= 1E-2) 


104C 

FA 

57 

10 

JP 

M,1057 

NEIN, 10-EXP IN BUFFER 


104F 

14 



INC 

D 

GENAUIGKEIT + 2 NACH D 


1050 

BA 



CP 

D 

10-EXP < GENAUIGKEIT? 


1051 

30 

04 


JR 

NC,1057 

NEIN. 10-EXP IN BUFFER 


1033 

3C 



INC 

A 

JA, 10-EXP + 3 ERGIBT DEZIMALPUNKTSTELLE 


1034 

47 



LD 

B,A 



1035 

3E 

02 


LD 

A,02 

UND ES WIRD KEIN EXPONENT GEDRUECKT, DAHER 10-EXP +2=2 


1057 

D6 

02 


SUB 

02 

10-EXP NACH A 


1059 

El 



POP 

HL 

BUFFERZEIGER ZURUECK 


105A 

F5 



PUSH 

AF 

10-EXP RETTEN 


105B 

CD 

91 

12 

CALL 

1291 

UND SETZEN 


105E 

36 

30 


LD 

(HL),30 

'0' IN BUFFER 


1060 

CC 

C9 

09 

CALL 

Z,09C9 

GESETZT? (BEI 10-EXP = -2) —> BUFFERZEIGER INC. 


1063 

CD 

A4 

12 

CALL 

12A4 

MANTISSE IN STRING UMANDELN 


1066 

2B 



DEC 

HL 

BUFFERZEIGER DEC. 


1067 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 


1068 

FE 

30 


CP 

30 

= '0'? 


106A 

28 

FA 


JR 

Z.1066 

JA, WEITER 


106C 

FE 

2E 


CP 

2E 

VOR LETZTER NULL '.'? 


106E 

C4 

C9 

09 

CALL 

NZ,09C9 

NEIN, BUFFERZEIGER INC. ('.' WIRD GESTRICHEN) 


1071 

Fl 



POP 

AF 

10-EXP ZURUECK, =0? 


1072 

28 

1F 


JR 

Z,1093 

JA, KEIN 10-EXP IN BUFFER 


1074 

F5 



PUSH 

AF 

10-EXP RETTEN 


1075 

E7 



RST 

20 

TYP TESTEN: SINGLE? —> CY=1 


1076 

3E 

22 


LD 

A,22 

'D'/2 NACH EXPKENNUNG 


1078 

8 F 



ADC 

A 

EXPKENNUNG = 'E' FUER SINGLE UND 'D' FUER DOUBLE 


1079 

77 



LD 

(hl),a 

EXPKENNUNG IN BUFFER 


107A 

23 



INC 

HL 

BUFFERZEIGER INC. 


107B 

Fl 



POP 

AF 

10-EXP ZURUECK, < 0? 


107C 

36 

2B 


LD 

(HL),2B 

'+' IN BUFFER 


107E 

F2 

85 

10 

JP 

P»1085 

NEIN 


1081 

36 

2D 


LD 

(HL),2D 

IN BUFFER 


1083 

2F 



CPL 


UND VORZEICHEN ENTFERNEN 


1084 

3C 



INC 

A 



1085 

06 

2F 


LD 

B,2F 

ZIFFER = '0' - 1 


1087 

04 



INC 

B 

ZIFFER = ZIFFER + 1 


1088 

D6 

OA 


SUB 

OA 

10-EXP - 10D NACH 10-EXP, UNTERLAUF? 


108A 

30 

FB 


JR 

NC,1087 

NEIN, WEITER 


108C 

C6 

3A 


ADD 

3A 

LETZTE SUBTRAKTION RUECKGAENGIG UND ADDITON VON 0 ERGIBT 2.ZIFFER 

108E 

23 



INC 

HL 

BUFFERZEIGER INC. 


108F 

70 



LD 

(HL),B 

1.ZIFFER IN BUFFER 


1090 

23 



INC 

HL 

BUFFERZEIGER INC. 


1091 

77 



LD 

(HL),A 

2.ZIFFER IN BUFFER 


1092 

23 



INC 

HL 

BUFFERZEIGER INC. 


1093 

56 

00 


LD 

(HL),00 

ZEILENENDE 


1095 

EB 



EX 

DE, HL 

ZEILENENDEZEIGER NACH DE 


1096 

21 

30 

41 

LD 

HL,4130 

BUFFERANFANG NACH HL 


1099 

C9 



RET 








FORMATIERTEN STRING ERZEUGEN 


109A 

23 



INC 

HL 

BUFFERZEIGER INC. 


109B 

C5 



PUSH 

BC 

FELDPARAMETER RETTEN 


109C 

FE 

04 


CP 

04 

SINGLE ODER DOUBLE? 


109E 

7A 



LD 

A,D 

FORMATFLAG NACH A 


109? 

D2 

09 

11 

JP 

NC,1109 

JA 






INTEGER 



10A2 

1F 



RRA 


10-EXP-AUSGABE? (BIT 0 VON FORMATFLAG GESETZT) 


10A3 

DA 

A3 

11 

JP 

C, 11 A3 

JA 


10A6 

01 

03 

06 

LD 

BC,0603 

PARAMETER FUER UND '.' NACH DER 5-STELLE, , NACH DER 

2 . 

10A9 

CD 

89 

12 

CALL 

1289 

KEINE '.'-AUSGABE ERWUENSCHT? —> PARAMETER FUER LOESCHEN 


10AC 

Dl 



POP 

DE 

FELDPARAMETER ZURUECK NACH DE 


10ÄD 

7A 



LD 

A,D 

VORKOMMASTELLEN - 5 (NORMALE ANZAHL DER ZIFFERN BEI INTEGER) >= 

0 ? 

10AE 

D6 

06 


SUB 

05 



10BO 

F4 

69 

12 

CALL 

P, 1 269 

ENTSPRECHENDE ANZAHL NULLEN AUSGEBEN 


10B3 

CD 

2F 

13 

CALL 

132F 

ZAHL IN STRING UMWANDELN 


10B6 

7B 



LD 

A,E 

KEINE NACHKOMMASTELLEN? 
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1ÜBY 

Dl 



UK 

A 



10B8 

CC 

2F 

09 

CALL 

Z,092F 

;JA, AUS BUFFER ENTFERNEN 


10BB 

3D 



DEC 

A 

;NACHKOMMAFELDLAENGE NACH A. - 1 

> 0? 

10BC 

F4 

69 

12 

CALL 

P,1269 

;ENTSPRECHENDE ANZAHL NULLEN AUSGEBEN 

1OBF 

E5 



PUSH 

HL 

;BUFFERZEIGER RETTEN 






UEBRIGE 

FORMATIERUNG, 

RICHTIGE FELDLAENGE HERSTELLEN 



10C0 

CD 

F5 

OF 

CALL 

0FF5 

UEBRIGE FORMATVORSCHRIFTEN ERLEDIGEN, VORZEICHEN 

HINTER ZAHL? 

10C3 

El 



POP 

HL 

BUFFERZEIGER ZURUECK 


10C4 

28 

02 


JR 

Z, 10C8 

NEIN 


10C6 

70 



LD 

(HL),B 

VORZEICHEN HINTER ZAHL 


10C7 

23 



INC 

HL 

BUFFERZEIGER INC. 


10CÖ 

36 

00 


LD 

(HL),00 

ZEILENENDE MIT 0 MARKIEREN 


10CA 

21 

2F 

41 

LD 

HL,412F 

BUFFERZEIGER AUF BYTE VOR BUFFERANFANG 


10CD 

23 



INC 

HL 

BUFFERZEIGER INC. 


10CE 

3A 

F3 

40 

LD 

A,(40F3) 

LSB '.'-POSITION 


10D1 

95 



SUB 

L 

- LSB BUFFERZEIGER 


10D2 

92 



SUB 

D 

- VORKOMMAFELDLAENGE = 0? 








(RICHTIGE VORKOMMAFELDLAENGE ERREICHT) 


10D3 

C8 



RET 

Z 

JA. FERTIG 


10D4 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 


10D5 

FE 

20 


CP 

20 

= ' 


10D7 

28 

F4 


JR 

Z, 10CD 

JA, WEITER 


10D9 FE 

2A 


CP 

2A 

= **'? 


10DB 

28 

FO 


JR 

Z, 10CD 

JA, WEITER 


10DD 

2B 



DEC 

HL 

BUFFERZEIGER DEC. 


10DE 

E5 



PUSH 

HL 

UND RETTEN 


10DF F5 



PUSH 

AF 

FLAG (Z=0) RETTEN ODER ZEICHEN UND Z=1 


10E0 

01 

DF 

10 

LD 

BC,1ODF 

RUECKSPRUNGADRESSE SETZEN (NAECHSTES ZEICHEN) 


10E3 

C5 



PUSH 

BC 



10E4 

DY 



RST 

10 

NAECHSTSES ZEICHEN 


10E5 

FE 

2D 


CP 

2D 

= ' 


10E7 

C8 



RET 

Z 

JA, WEITER 


10E8 

FE 

2B 


CP 

2B 

= V? 


10EA 

C8 



RET 

Z 

JA, WEITER 


10EB 

FE 

24 


CP 

24 

= V 


10ED 

C8 



RET 

Z 

JA, WEITER 


10EE 

CI 



POP 

BC 

RUECKSPRUNGADRESSE ENTFERNEN 


10EF 

FE 

30 


CP 

30 

= '0'? 


10F1 

20 

OF 


JR 

NZ,1102 

NEIN, FELDUEBERLAUF 


10F3 

23 



INC 

HL 

BUFFERZEIGER INC. ('.' UEBERGEHEN) 


10F4 

DY 



RST 

10 

NAECHSTES ZEICHEN, ZIFFER? 


10F5 

30 

OB 


JR 

NC,1102 

NEIN, FELDUEBERLAUF 


10F7 

2B 



DEC 

HL 

BUFFERZEIGER AUF '.' 


10F8 

01 

2B 

77 

LD 

BC,772B 



(10F9 

2B 


DEC 

HL 

BUFFERZEIGER DEC.) 


(10FA 


77 

LD 

(hl),a 

ZEICHEN IN BUFFER) 


10FB 

Fl 



POP 

AF 

ZEICHEN VOM STACK ZURUECK, LETZTES ZEICHEN? 


10FC 

28 

FB 


JR 

Z,10F9 

NEIN, WEITER 


10FE 

CI 



POP 

BC 

BUFFERZEIGER VOM STACK ENTFERNEN 


10FF 

C3 

CE 

10 

JP 

10CE 

WEITER 






FELDUEBERLAUF 



1102 

Fl 



POP 

AF 

ZEICHEN VOM STACK ENTFERNEN, LETZTES ZEICHEN? 


1103 

28 

FD 


JR 

Z,1102 

NEIN, WEITER 


1105 

El 



POP 

HL 

BUFFEPZEIGER ZURUECK 


1106 

36 

25 


LD 

(HL),25 

'$>' FUHR FELDUEBERLAUF VOR ZAHL 


1108 

C9 



RET 








FORMATIERTEN STRING ERZEUGEN (SINGLE UND DOUBLE) 


1109 

E5 



PUSH 

HL 

BUFFERZEIGER RETTEN 


110A 

1F 



RRA 


EXPONENTENAUSGABE ERWUENSCHT? 


hob 

DA 

AA 

11 

JP 

C,1 IAA 

JA 


11 OE 

28 

14 


JR 

Z,1124 

SINGLE? —> SPRUNG 


1110 

11 

84 

13 

LD 

DE,1384 

ZEIGER AUF KONSTANTE 1 Dl 6 


1113 

CD 

49 

OA 

CALL 

OA49 

ZAHL >= 1 Dl 6? 


1116 

16 

10 


LD 

D,10 

GENAUIGKEIT (l6D STELLEN FUER DOUBLE) NACH D 


1118 

FA 

32 

11 

JP 

M, 1132 

NEIN 






FELDUEBERLAUF 



111B 

El 



POP 

HL 

BUFFERZEIGER ZURUECK 


11 1 c 

CI 



POP 

BC 

FELDPARAMETER ZURUECK 


111D 

CD 

BD 

OF 

CALL 

OFBD 

UNFORMATIERTEN STRING ERZEUGEN 


1120 

2B 



DEC 

HL 

BUFFERZEIGER DAVOR 


1121 

36 

25 


LD 

(HL),25 

'#' FUER FELDUEBERLAUF VOR STRING 


1123 

C9 



RET 




1124 

01 

OE 

B6 

LD 

BC,B60E 

SINGLE: Y = 1E6 


1127 

11 

CA 

1B 

LD 

DE,1BCA 



112A 

CD 

OC 

OA 

CALL 

OAÖC 

ZAHL > — 1E6? 


112D 

F2 

1B 

11 

JP 

P, 111B 

JA, FELDUEBERLAUF 


1130 

16 

06 


LD 

D,06 

GENAUIGKEIT (6 STELLEN FUER SINGLE) NACH D 


1132 

CD 

55 

09 

CALL 

0955 

ZAHL = 0? 


1135 

C4 

01 

12 

CALL 

NZ,1201 

NEIN, 10-EXP - GENAUIGKEIT + 1 NACH A 


1138 

El 



POP 

HL 

BUFFERZEIGER ZURUECK 


1139 

CI 



POP 

BC 

FELDPARAMETER ZURUECK 


113A 

FA 

57 

11 

JP 

M, 1157 

NACHKOMMASTELLEN VORHANDEN? —> SPRUNG 






KEINE 

NACHKOMMASTELLEN VORHANDEN 


113D 

C5 



PUSH 

BC 

FELDPARAMETER RETTEN 


113E 

5F 



LD 

E,A 

10-EXP - GENAUIGKEIT + 1 NACH E 


113F 

78 



LD 

A,B 

VORKOMMAFELDLAENGE 


1140 

92 



SUB 

D 

- 10-EXP - 1 NACH A 


1141 

93 



SUB 

E 

>= 0? 


1142 

F4 

69 

12 

CALL 

P,1269 

JA, ENTSPRECHENDE ANZAHL NULLEN IN BUFFER 


1145 

CD 

YD 

12 

CALL 

127D 

PARAMETER FUER '.' UND ',' ERMITTELN 


1148 

CD 

A4 

12 

CALL 

12A4 

STRING ERZEUGEN 


114B B3 



OR 

E 

10-EXP - GENAUIGKEIT + 1 > 0? 


114C 

C4 

77 

12 

CALL 

NZ,1277 

JA, ENTSPRECHENDE ANZAHL NULLEN MIT ('.' UND ',' 

IN BUFFER 

114F B3 



OR 

E 

10-EXP - GENAUIGKEIT + 1 > 0? 
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TT5Ö" 

T7T 

ln 

T2- 

CALL 

fJZ,12y i 

UJ~, : UND ; IN BUFFER 

1153 

Dl 



POP 

DE 

FELD PAR 4METER NACH DE ZURUECK 

1154 

C3 

B6 

10 

JP 

10B6 

UEBRIGE FORMATIERUNG DURCHFUEHREN 





NACHKOMMASTELLEN VORHANDEN 

1157 

5P 



LD 

E, A 

1C-EXP - GENAUIGKEIT + 1 NACH E 

1158 79 



LD 

A,C 

NACHKOMMAPELDLAENGE NACH A 

1159 

B7 



OR 

A 

> 0? 

115A 

C4 

16 

OP 

CALL 

NZ.0F16 

JA, - 1 (FUER '.') 

115D 

83 



ADD 

E 

GROESSER ALS VORHANDENE NACHKOMMASTELLEN 

115E 

PA 

62 

11 

JP 

M, 1162 

NEIN 

1161 

AP 



XOR 

A 

NEIN, ANZAHL DER UEBERFLUESSIGEN STELLEN = 0 

1162 

C5 



PÜSH 

BC 

PELDPARAMETER RETTEN 

1163 

P5 



PUSH 

AP 

-ANZAHL DER UEBERFLUESSIGEN STELLEN RETTEN 

1164 

PC 

18 

OP 

CALL 

M,0F18 

ENTFERNEN: ZAHL / 10D, ANZAHL + 1 

1167 

PA 

64 

11 

JP 

M,1164 

< 0? —> WEITER 

116A 

CI 



POP 

BC 

-ANZAHL DER UEBERFLUESSIGEN STELLEN ZURUECK 

116B 

7B 



LD 

A,E 

-ANZAHL DER TATSAECHLICH AUSZUGEBENDEN NACKKOMMASTELLEN NACH A 

116C 

90 



SUB 

B 


116D 

CI 



POP 

BC 

FELDPARAMETER ZURUECK 

116E 

5F 



LD 

E,A 

NACH E 

116P 

82 



ADD 

D 

+ GENAUIGKEIT < 0? (NUR NACHKOMMASTELLEN) 

1170 

78 



LD 

A,B 

VORKOMMAFELDLAENGE NACH A 

1171 

PA 

7P 

11 

JP 

M,117F 

JA 

1174 

92 



SUB 

D 

VORKOMMAFELDLAENGE - GENAUIGKEIT 

1175 

93 



SUB 

E 

+ TATSAECHLICH AUSZUGEBENDE NACHKOMMASTELLEN, > 0? 

1176 

F4 

69 

12 

CALL 

P, 1269 

ENTSPRECHENDE ANZAHL NULLEN IN BUFFER 

1179 

C5 



PUSH 

BC 

PELDPARAMTER RETTEN 

117A 

CD 

7D 

12 

CALL 

127D 

PARAMETER FJER UND ERMITTELN 

117D 

18 

11 


JR 

1190 

WEITER 





NUR NACHKOMMASTELLEN 


117E 

CD 

69 

12 

CALL 

1269 

FUER VORKOMMAFELDLAENGE NULLEN IN BUFFER 

1182 

79 



LD 

A.C 

NACHKOMMAPELDLAENGE NACH A 

1183 

CD 

94 

12 

CALL 

1294 

' IN BUFFER 

1186 

4P 



LD 

C, A 

NACHKOMMAPELDLAENGE NACH C 

1187 

AP 



XOR 

A 

TATSAECHLICH AUSZUGEBENDE NACHKOMMASTELLEN - 

1188 

92 



SUB 

D 

GENAUIGKEIT 

1189 

93 



SUB 

E 

ERGIBT ANZAHL DER EINZUFUEGENDEN NULLEN 

118Ä 

CD 

69 

12 

CALL 

1269 

NULLEN IN BUPPER 

118D 

C5 



PUSH 

BC 

PELDPARAMETER RETTEN 

118E 

47 



LD 

B,A 

PARAMETER FJER UND LOESCHEN 

118F 

4P 



LD 

C,A 

(KEIN '.'UND KEIN ',') 

1190 

CD 

A4 

12 

CALL 

12A4 

STRING IN BUPPER 

1193 

CI 



POP 

BC 

PELDPARAMETER ZURUECK 

1194 

Bl 



OR 

C 

NACHKOMMAPELDLAENGE > 0? 

1195 

20 

03 


JR 

NZ.119A 

JA 

1197 

2A 

F3 

40 

LD 

HL,(40F3) 

'.'-POSITION LADEN 

119A 83 



ADD 

E 

NACHKOMMAPELDLAENGE - ANZAHL DER TATSAECHLICHEN AUSGEGENEN 







NACHKOMMASTELLEN 

119B 3D 



DEC 

A 

- 1 (FUER '.') 

119C 

F4 

69 

12 

CALL 

P.1269 

> 0? —> ENTSPRECHENDE ANZAHL NULLEN AUSGEBEN 

119F 50 



LD 

D.B 

VORKOMMAFELDLAENGE NACH D 

11AO 

C3 

BP 

10 

JP 

1ÖBF 

WEITER 





FORMATIERTE EXPONENTENAUSGABE 





ANSPRUNG INTEGER 


11 A3 

E5 



PUSH 

HL 

BUFFERZEIGER RETTEN 

11 A4 

D5 



PUSH 

DE 

PORMATFLAG RETTEN 

11A5 

CD 

CC 

OA 

CALL 

OACC 

INTEGER IN SINGLE UMWANDELN 

11 AS 

Dl 



POP 

DE 

PORMATFLAG ZURUECK 

11A9 

AP 



XOR 

A 

PLAG EUER SINGLE SETZEN 





ANSPRUNG SINGLE/DOUBLE 

11AA 

CA 

BO 

11 

JP 

Z, 11 BO 

SINGLE? —> SPRUNG 

11 AD 

IE 

10 


LD 

E, 10 

DOUBLE: GENAUIGKEIT = 16D STELLEN 

11 AP 

01 

IE 

06 

LD 

BC.061E 


(11B0 

IE 

06 

LD 

E,06 

SINGLE: GENAUIGKEIT = 6 STELLEN) 

11B2 

CD 

55 

09 

CALL 

0955 

ZAHL = 0? 

11B5 

37 



SCP 


JA, FLAG CY SETZEN 

11B6 

C4 

01 

12 

CALL 

NZ.1201 

NEIN, 10-EXP - GENAUIGKEIT + 1 ERMITTELN (CY LOESCHEN) 

11B9 

El 



POP 

HL 

BUFPERZEIGER ZURUECK 

11BA 

CI 



POP 

BC 

PELDPARAMETER ZURUECK 

heb 

F5 



PUSH 

AP 

10-EXP - GENAUIGK. + 1. FLAG RETTEN 

11BC 

79 



LD 

A,C 

NACHKOMMAFELDLAENGE = 0? 

11BD 

B7 



OR 

A 


11BE 

P5 



PUSH 

AP 

NACHKOMMAPELDLAENGE RETTEN (FUER '.') 

11BP 

C4 

16 

OP 

CALL 

NZ,0F16 

NEIN, NACHKOMMAFELDLAENGE - 1 

11C2 

80 



ADD 

B 

VORKOMMAFELDLAENGE ADDIEREN 

11C3 

4P 



LD 

C,A 

GESAMTPELDLAENGE NACH C 

11C4 

7A 



LD 

A,D 

PORMATFLAG TESTEN 

11C5 

E6 

04 


AND 

04 

BIT 2 GESETZT? (VORZEICHEN HINTER ZAHL) 

11C7 

PE 

01 


CP 

01 

JA, 0 NACH PORMATFLAG 

11C9 

9F 



SBC 

A 

SONST - 1 

11 CA 

57 



LD 

D,A 


11 CB 

81 



ADD 

C 

GESAMTPELDLAENGE - 1, WENN VORZEICHEN NICHT HINTER ZAHL 

11CC 

4P 



LD 

C, A 

NACH C 

11 CD 

93 



SUB 

E 

- 10-EXP - GENAUIGKEIT + 1 ERGIBT 

11 CE 

F5 



PUSH 

AP 

- ANZAHL DER WEGZURUNDENDEN STELLEN, RETTEN 

11 CF 

C5 



PUSH 

BC 

PELDPARAMETER RETTEN 

11 DO 

PC 

18 

OP 

CALL 

M,0F18 

- ANZAHL < 0? —> ZAHL / 10D, - ANZAHL + 1 , <0? 

11D3 

PA 

DO 

11 

JP 

M,1 IDO 

JA, WEITER 

11D6 

CI 



POP 

BC 

FELDPARAMETER ZURUECK 

11D7 

PI 



POP 

AP 

- ANZAHL DER WEGZURUNDENDEN STELLEN ZURUECK 

11D8 

C5 



PUSH 

BC 

FELDPARAMETER RETTEN 

11D9 

P5 



PUSH 

AP 

- ANZAHL DER WEG ZURUNDENDEN STELLEN RETTEN, KEINE STELLEN WEGZURUNDEN? 

11 DA 

PA 

DE 

11 

JP 

M,1 IDE 

NEIN 

HDD 

AP 



XOR 

A 

= 0 

11 DE 

2F 



CPL 


POSITIVE ANZAHL ERMITTELN 
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11E0 

80 



ADD 

B 

+ VORKOMMAFELDLAENGE 

11 El 

3C 



INC 

A 

+ 1 

11E2 

82 



ADD 

D 

UND - 1, WENN VORZEICHEN VOR ZAHL 

11E3 

47 



LD 

B,A 

ERGIBT '.'-STELLUNG 

11E4 

OE 

00 


LD 

C,00 

PARAMETER FUER = 0 (KEIN ',') 

11E6 

CD 

A4 

12 

CALL 

12A4 

STRING IN BUFFER 

11E9 

Fl 



POP 

AF 

GESAMTFELDLAENGE - GENAUIGKEIT > 0? 

11EA 

F4 

71 

12 

CALL 

P,1271 

JA, ENTSPRECHENDE ANZAHL NULLEN IN BUFFER 

11ED 

CI 



POP 

BC 

FELD PARAMETER ZURUECK 

11EE 

Fl 



POP 

AF 

NACHKOMMAFELDLAENGE = 0? 

11EF 

CC 

2F 

09 

CALL 

Z.092F 

JA, AUS BUFFER ENTFERNEN 

11F2 

Fl 



POP 

AF 

ZAHL = 0? 

11F3 

K'n 

O 

CO 


JR 

C,11F8 

JA 

11F5 

83 



ADD 

E 

AUSZUGEBENDEN 10-EXP ERMITTELN 

11F6 

90 



SUB 

B 


11F7 

92 



SUB 

D 


11F8 

C5 



PUSH 

BC 

FELDPARAMETER RETTEN 

11P9 

CD 

74 

10 

CALL 

1074 

UND 10-EXP IN BUFFER 

11 FC 

EB 



EX 

DE, HL 

BUFFERENDE NACH HL 

11 FD 

Dl 



POP 

DE 

FELDPARAMETER NACH DE ZURUECK 

11 FE 

C3 

BF 

10 

JP 

10BF 

WEITER 


ZAHL SOLANGE MIT 10D MULTIPLIZIEREN ODER DURCH 10D DIVIDEREN BIS 
GENAU 6 (!) ODER 16D (§) STELLEN 


1201 

D5 



PUSH 

DE 

De retten 



1202 

AF 



XOR 

A 

VERSCHIEBUNGEN = 0 



1203 

F5 



PUSH 

AF 

VERSCHIEBUNGEN RETTEN 



1204 

E7 



RST 

20 

TYP TESTEN, SINGLE? 



1205 

E2 

22 

12 

JP 

PO.1222 

JA 



1208 

3A 

24 

41 

LD 

A, (4124) 

2-EXP ZAHL >= 17D? 



1 20B 

FE 

91 


CP 

91 

(ZAHL >= 65536D) 



1 20D 

D2 

22 

12 

JP 

NC.1222 

JA 



1210 

11 

64 

13 

LD 

DE,1364 

ZEIGER AUF KONSTANTE 1 Dl 0 



1213 

21 

27 

41 

LD 

HL,4127 

ZEIGER AUF Y 



1216 

CD 

D3 

09 

CALL 

09D3 

1 Dl 0 NACH Y 



1219 

CD 

AI 

OD 

CALL 

0DA1 

ZAHL MAL 1 Dl 0 



121 C 

Fl 



POP 

AF 

VERSCHIEBUNGEN ZURUECK 



1 21D 

D6 

OA 


SUB 

OA 

- 10D 



121F 

F5 



PUSH 

AF 

UND WIEDER RETTEN 



1220 

18 

E6 


JR 

1208 

WEITER 



1222 

CD 

4F 

12 

CALL 

124F 

ZAHL >= 1E6 (!) ODER 1 Dl6 (§)? —> 

NACH 

1243 

1225 

E7 



RST 

20 

TYP TESTEN, DOÜBLE? 



1226 

30 

OB 


JR 

NC,1233 

JA 



1228 

01 

43 

91 

LD 

BC.9143 

KONSTANTE 100000D NACH Y 



122B 

11 

F9 

4F 

LD 

DE,4FF9 




122E 

CD 

OC 

CA 

CALL 

OAOC 

ZAHL >= 100000D? 



1231 

18 

06 


JR 

1239 

WEITER 



1233 

11 

6C 

13 

LD 

DE,136C 

ZEIGER AUF KONSTANTE 1 Dl 5 



1256 

CD 

49 

OA 

CALL 

OA49 

ZAHL >= 1D1 5? 



1239 

F2 

4B 

12 

JP 

P, 1 24B 

JA 



1230 

Fl 



POP 

AF 

VERSCHIEBUNGEN ZURUECK 



123D 

CD 

OB 

OF 

CALL 

OFOB 

ZAHL / 10D, VERSCHIEBUNGEN INC. 



1240 

F5 



PUSH 

AF 

VERSCHIEBUNGEN RETTEN 



1241 

18 

E2 


JR 

1225 

WEITER 



1243 

Fl 



POP 

AF 

VERSCHIEBUNGEN ZURUECK 



1244 

CD 

18 

OF 

CALL 

0F18 

ZAHL * 10D, VERSCHIEBUNGER - 1 



1247 

F5 



PUSH 

AF 

VERSCHIEBUNGEN RETTEN 



1248 

CD 

4F 

12 

CALL 

124F 

ZAHL >= 1E6 (!) ODER 1 Dl 6 (§)? —> 

NACH 

1243 

124B 

Fl 



POP 

AF 

VERSCHIEBUNGEN ZURUECK 



124C 

B7 



OR 

A 

VERSCHIEBUNGEN TESTEN 



124D 

Dl 



POP 

DE 

DE ZURUECK 



124E 

C9 



RET 





124F E7 



RST 

20 

ZAHL >= 1E6 (!) ODER 1 Dl 6 (§)?: TYP TESTEN. DOUBLE? 

1250 

EA 

5E 

12 

JP 

PE.125E 

JA 



1253 

01 

74 

94 

LD 

BC.9474 

KONSTANTE 1E6 NACH Y 



1256 

11 

F8 

23 

LD 

DE.23F8 




1259 

CD 

OC 

OA 

CALL 

OAOC 

ZAHL >= 1E6? 



125C 

18 

06 


JR 

1264 

WEITER 



125E 

11 

74 

13 

LD 

DE,1374 

ZEIGER AUF KONSTANTE 1 Dl 6 



1261 

CD 

49 

OA 

CALL 

OA49 

ZAHL >= 1 Dl 6? 



1264 

El 



POP 

HL 

RUECKSPRUNGADRESSE NACH HL 



1265 

F2 

43 

12 

JP 

P,1243 

JA, NACH 1243 



1268 

E9 



JP 

(HL) 

NEIN, NORMALER RUECKSPRUNG 






UP 

FILLO 

(AF=0044,HL) 





NULLEN IN BUFFER EINSCHREIBEN 
I:A=ANZAHL DER NULLEN 


HL=BUFFERZEIGER 

0:HL=BUFFERZEIGER UM ANZAHL PER NULLEN ERHOEHT 


1269 

B7 


OR 

A 

ANZAHL = 0? 

126A 

C8 


RET 

Z 

JA, FERTIG 

126B 3D 


DEC 

A 

ANZAHL - 1 

126C 36 

30 

LD 

(HL),30 

'0' IN BUFFER 

126E 

23 


INC 

HL 

BUFFERZEIGER INC. 

126F 

18 

F9 

JR 

126A 

WEITER 




NULLEN 

IN BUFFER MIT 

'.' UND ',' 

1271 

20 

04 

JR 

NZ,1277 

ANZAHL > 0? —> SPRUNG 

1273 

C8 


RET 

Z 

= 0? —> FERTIG 

1274 

CD 

91 12 

CALL 

1291 

'.' UND ',' SETZEN 

1277 

36 

30 

LD 

(HL ,30 

'0' IN BUFFER 

1279 

23 


INC 

HL 

BUFFERZEIGER INC. 

127A 

3D 


DEC 

A 

ANZAHL DEC. 

127B 

18 

F6 

JR 

1273 

WEITER 




PARAMETER FUER '.'UNI 

',' ERMITTELN 

127D 

7B 


LD 

A,E 

VERSCHIEBUNGEN NACH A 

127E 

82 


ADD 

D 

GENAUIGKEIT ADDIEREN 
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1 2/F 

■3TT 



INC 

A 

+ l 

1280 

47 



LD 

B,A 

ERGIBT DEZIMALPUNKTSTELLUNG 

1281 

3C 



INC 

A 

+ 1 

1282 

D6 

03 


SUB 

03 

(DEZIMALPUNKTST. + 1 MOD 3) + 2: '.'-STELLUNG - 3, UNTERLAUF? 

1284 

30 

PC 


JR 

NC,1282 

NEIN, WEITER 

1286 

C6 

05 


ADD 

05 

LEZTE SUBTRAKTION RUECKGAENGIG UND 2 ADDIEREN 

1288 

4P 



LD 

C,A 

ALS ','-PARAMETER NACH C 

1289 

3A 

D8 

40 

LD 

A, (40D8) 

40 

',' ERWUENSCHT? 

(BIT 6 DES PORMATPLAGS GESETZT?) 

128C 

E6 

40 


AND 

128E 

CO 



RET 

NZ 

JA. FERTIG 

128? 

4P 



LD 

C f A 

NEIN, '.'-PARAMETER = 0 

1290 

C9 



RET 







UND 

',' SETZEN 


1291 

03 



DEC 

B 

DEZIMALPUNKTSTELLUNG DEC., DEZIMALPUNKT ERREICHT? 

1292 

20 

08 


JR 

NZ.129C 

NEIN 

1294 36 

2E 


LD 

(HL),2E 
(40P3),HL 

'.'IN BUPPER 

1296 

22 

F3 

40 

LD 

'.'-BUFFERADRESSE ABSPEICHERN 

1299 

23 



INC 

HL 

BUFFERZEIGER INC. 

129A 

48 



LD 

C,B 

','-PARAMETER = 0, KEINE ',' MEHR 

129B 

C9 



RET 



129C 

OD 



DEC 

C 

','-PARAMETER DEC., NAECHSTE ','-STELLUNG ERREICHT 

129D 

CO 



RET 

NZ 

NEIN, FERTIG 

129E 36 

2C 


LD 

(HL),2C 

',' IN BUPPER 

12A0 

23 



INC 

HL 

BUPPERZEIGER INC. 

12A1 

OE 

03 


LD 

C,03 

','-PARAMETER = 3, NAECHSTES ',' NACH 3 DIGITS 

12A3 

C9 



RET 







VORBEREITETE ZAHL IN ASCII-STRING UNFORMEN 

ANSPRUNG DOUBLE UND SINGLE 

12A4 

D5 



PUSH 

DE 

DE RETTEN 

12A5 

E7 



RST 

20 

TYP TESTEN, SINGLE? 

1 2A6 

E2 

EA 

12 

JP 

P0.12EA 

JA 

12A9 

C5 



PUSH 

BC 

PARAMTER FUER '.' UND ',' RETTEN 

12AA E5 



PUSH 

HL 

BUPPERZEIGER RETTEN 

12AB 

CD 

PC 

09 

CALL 

09FC 

ZAHL +0.5 (FUER RUNDUNG): ZAHL NACH Y 

12AE 

21 

7C 

13 

LD 

HL,137C 

ZEIGER AUF KONSTANTE 0.5 

12B1 

CD 

F7 

09 

CALL 

09F7 

KONSTANTE NACH X 

12B4 

CD 

77 

OC 

CALL 

OC77 

ZAHL + 0.5 NACH X 

12B7 

AP 



XOR 

A 

NORMALISIERUNGSPLAG LOESCHEN (CY) 

12B8 

CD 

7B 

OB 

CALL 

0B7B 

NACHKOMMASTELLEN ABHACKEN OHNE NORMALISIERUNG 

12BB 

El 



POP 

HL 

BUPPERZEIGER ZURUECK 

12BC 

CI 



POP 

BC 

PARAMETER FUER '.' UND ',' ZURUECK 

12BD 

11 

8C 

13 

LD 

DE.138C 

A,ÖA 

ZEIGER AUF PESTKOMMAKONSTANTEN 1 Dl 5 BIS 1D6 

12C0 

3E 

OA 


LD 

ZIFFERNZAEHLER = 10D 

12C2 

CD 

91 

12 

CALL 

1291 

'.' UND ',' SETZEN 

12C5 

CS 



PUSH 

BC 

PARAMAMETER FUER '.' UND ',' RETTEN 

12C6 

FS 



PUSH 

AP 

ZIFFERNZAEHLER RETTEN 

12C7 

ES 



PUSH 

HL 

BUFFERZEIGER RETTEN 

1 2C8 

D5 



PUSH 

DE 

KONSTZEIGER RETTEN 

12C9 06 

2F 


LD 

B,2F 

ZIPPER = '0' -1 

12CB 04 



INC 

B 

ZIPPER = ZIPPER + 1 

12CC 

El 



POP 

HL 

KONSTZEIGER NACH HL ZURUECK UND WIEDER RETTEN 

12CD 

ES 



PUSH 

HL 


12CE 

CD 

48 

OD 

CALL 

0D48 

ZAHL - KONST NACH ZAHL, UNTERLAUF? 

1 2D1 

30 

F8 


JR 

NC,12CB 

NEIN, WEITER 

12D3 

El 



POP 

HL 

KONSTZEIGER NACH IIL ZURUECK 

12D4 

CD 

36 

OD 

CALL 

OD36 

ZAHL + KONST NACH ZAFL (LETZTE SUBTRAKTION RUECKGAENGIG) 

12D7 

EB 



EX 

DE ,HL 

KONSTZEIGER (AUF NAECHSTE KONSTANTE) NACH DE 

12D8 

El 



POP 

HL 

BUFFERZEIGER ZURUECK 

12D9 

70 



LD 

(hl),b 

ZIFFER IN BUPPER EINTRÄGEN 

12DA 

23 



INC 

HL' 

BUPPERZEIGER INC. 

12DB 

PI 



POP 

AP 

ZIFFERNZAEHLER ZURUECK 

12DC 

CI 



POP 

BC 

PARAMETER FUER '.' UND ',' ZURUECK 

1 2DD 

3D 



DEC 

A 

ZIFFERNZAEHLER DEC., ALLE 10 ZIFFERN ERZEUGT? 

12DE 

20 

E2 


JR 

NZ,12C2 

NEIN, WEITER 

1 2E0 

CS 



PUSH 

BC 

PARAMETER FUER '.' UND ',' RETTEN 

12E1 

ES 



PUSH 

HL 

BUPPERZEIGER RETTEN 

12E2 

21 

ID 

41 

LD 

HL,41 ID 

REST (< 1D6) ALS SINGLE NACH X 

12E5 

CD 

Bl 

09 

CALL 

09B1 

12E8 

18 

CC 


JR 

12P6 

WEITER MIT SINGLE 

12EA 

C5 



PUSH 

BC 

SINGLE:PARAMETER FUER '.' UND ',' RETTEN 

12EB E5 



PUSH 

HL 

BUPPERZEIGER RETTER 

12EC 

CD 

08 

07 

CALL 

0708 

ZAHL +0.5 FUER RUNDUNG 

12EE 3C 



INC 

A 

PLAG FUER NORMALISIERUNG LOESCHEN (AOO) 

12F0 

CD 

PB 

OA 

CALL 

OAPB 

INT(ZAHL) NACH Y, KEINE NORMALISIERUNG 

12P3 

CD 

B4 

09 

CALL 

09B4 

ZAHL NACH X 

12P6 

El 



POP 

HL 

BUPPERZEIGER ZURUECK 

12P7 

CI 



POP 

BC 

PARAMETER FUER '.' UND ',' LOESCHEN 

12P8 

AP 



XOR 

A 

WIEDERHOLUNGSPLAG LOESCHEN 

12P9 

11 

D2 

13 

LD 

DE,13D2 

ZEIGEP AUF KONSTANTEN 1E5 UND 1E4 

12PC 

3F 



CCP 


WIEDERHOLUNGSPLAG KOMPLEMENTIEREN 

1 2FD 

CD 

91 

12 

CALL 

1291 

'.' UND ',' SETZEN 

1300 

CS 



PUSH 

BC 

PARAMETER FUER '.' UND ',' RETTEN 

1301 

FS 



PUSH 

AP 

WIEDERHOLUNGSPLAG RETTEN 

1302 

ES 



PUSH 

HL 

BUPPERZEIGER RETTEN 

1303 

DS 



PUSH 

DE 

KONSTZEIGER RETTEN 

1304 

CD 

BP 09 

CALL 

09BP 

ZAHL NACH Y 

1307 

El 



POP 

HL 

KONSTZEIGER NACH HL ZURUECK 

1308 06 

2F 


LD 

B,2F 

ZIPPER = 'O'-l 

130A 

04 



INC 

B 

ZIPPER = ZIFFER + 1 

130B 

7B 



LD 

A,E 

(HL) 

ZAHL - KONST NACH ZAHL, UNTERLAUF? 

130C 

96 



SUB 

(LSB) 

130D 

SP 



LD 

F,A 


130E 

23 



INC 

HL 


130P 

7A 



LD 

A,D 

(HL) 


1310 

9E 



SBC 


1311 

37 



LD 

D,A 


1312 

23 



INC 

HL 
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1 31 i 

TT 




~nn — 

A,C 

(MSB J- 

1314 

9E 




SBC 

(HL) 


1315 

4P 




LD 

C,A 


1-516 

2B 




DEC 

kL 

KONSTZEIGER ZURUECK AUF ERSTES BYTE DER KONSTANTE 

1317 

2B 




DEC 

HL 


1318 

30 

PO 



JR 

NC,130A 

NEIN, WEITER 

131A 

Ci) 

B7 

07 


CALL 

07B7 

ZAHL + KONST NACH ZAHL (LETZTE SUBTRAKTION RUECKGAENGIG) 

131D 

23 




INC 

HL 

KONSTZEIGER AUF NAECHSTE KONSTANTE 

131E 

CD 

B4 

09 


CALL 

09B4 

ZAHL NACH X 

1321 

EB 




EX 

DE, HL 

KONSTZEIGER NACH DE 

1322 

El 




POP 

HL 

BUFFERZEIGER ZURUECK 

1323 

70 




LD 

(hl),b 

ZIFFER IN BUFFER 

1324 

23 




INC 

HL 

BUFFERZEIGER INC. 

1323 

PI 




POP 

AP 

WIEDERHOLUNGSFLAG ZURUECK, SCHON 2 DURCHLAEUFE? 

1326 

CI 




POP 

BC 

PARAMETER FUER '.' UND ',' ZURUECK 

1327 

38 

D3 



JR 

C, 1 2FC 

NEIN, WEITER 

1329 

13 




INC 

DE 

WEITER IN INTEGER: NAECHSTE KONSTANTE (10000D) UEBERGEHEN 

132A 

13 




INC 

DE 


132B 

3E 

04 



LD 

A,04 

NOCH 4 ZIFFERN 

132D 

18 

06 



JR 

1335 

IN INTEGER 






ANSPRUNG INTEGER 


132P 

D5 




PUSH 

DE 

FORMAT-FLAG RETTEN 

1330 

11 

D8 

13 


LD 

DE,13D8 

ZEIGER AUF KONSTANTE 10000D BIS ID 

1333 

3E 

05 



LD 

A,05 

ZIFFERNZAEHLER = 5 

1333 

CD 

91 

12 


CALL 

1291 

UND ' AUF BILDSCHIRM SETZEN 

1338 

C3 




PUSH 

BC 

PARAMETER FUER UND RETTEN 

1339 

P3 




PUSH 

AP 

ZIFFERNZAEHLER RETTEN 

133 A 

E3 




PUSH 

HL 

BUFFERZEIGER RETTEN 

133B 

EB 




EX 

DE. HL 

KONSTZEIGER NACH HL 

133C 

4E 




LD 

C,(HL) 

KONSTANTE LADEN 

133D 

23 




INC 

HL 


133E 

46 




LD 

B,(HL) 

(MSB) 

133R 

C5 




PUSH 

BC 

UND KONSTANTE RETTEN 

1340 

23 




INC 

HL 

KONSTZEIGER AUF NAECHSTE KONSTANTE 

1341 

E3 




EX 

(SP),HL 

KONSTZEIGER RETTEN, BUFFERZEIGER ZURUECK 

1342 

EB 




EX 

DE, HL 

BUFFERZEIGER NACH DE 

1343 

2A 

21 

41 


LD 

HL,(4121) 

ZAHL LADEN 

1346 

06 

2F 



LD 

B,2F 

ZIFFER = 'O'-l 

1348 

04 




INC 

B 

ZIFFER = ZIFFER + 1 

1349 

7D 




LD 

A,L 

ZAHL - KONST NACH ZAHL, UNTERLAUF? 

134A 

93 




SUB 

E 

(LSB) 

134B 

6F 




LD 

L,A 


134C 

7C 




LD 

A,H 


134D 

9A 




SBC 

D 

(MSB) 

134E 

67 




LD 

H,A 


134P 

30 

F7 



JR 

NC,1348 

NEIN, WEITER 

1331 

19 




ADD 

HL, DE 

ZAHL + KONST NACH ZAHL (LETZTE SUNTRAKTION RUECKGAENGIG) 

1332 

22 

21 

41 


LD 

(4121),HL 

ZAHL ABSPEICHERN 

1333 

Dl 




POP 

DE 

KONSTZEIGER- ZURUECK 

1336 

El 




POP 

HL 

BUFFERZEIGER ZURUECK 

1337 

70 




LD 

(HL),B 

ZIFFER IN BUFFER 

1338 

23 




INC 

HL 

BUFFERZEIGER INC. 

1339 

El 




POP 

AP 

ZIFFERNZAEHLER ZURUECK 

133A 

CI 




POP 

BC 

PARAMETER FUER '.' UND ZURUECK 

133B 

3D 




DEC 

A 

ZIFFERNZAEHLER DEC., ALLE ZIFFERN ABGEARBEITET? 

133C 

20 

D7 



JR 

NZ,1335 

NEIN 

133E 

CD 

91 

12 


CALL 

1291 

UND SETZEN 

1361 

77 




LD 

(hl),a 

0 FUER ZEILENENDE IN BUFFER 

1362 

Dl 




POP 

DE 

DE ZURUECK 

1363 

C9 




RET 








KONSTANTEN 


1364 

00 

00 

00 

00 

F9 02 

15 A2 

= 1 Dl 0 

136C 

PD 

PP 

9F 31 

A9 5F 63 B2 

- 1 Dl 5 

1 374 

FE 

PP 

03 

BF 

C9 1B 

OE B6 

= 1 Dl 6 

137C 

00 

00 

00 

00 

00 00 

00 80 

- 1 (DOUBLE) 

1380 




00 00 

00 80 

= 1 (single)) 

1384 

00 

00 

04 

BF 

C9 1B OE B6 

= 1 Dl 6 






PESTKOMMAKONSTANTEN 


138C 

00 

80 

C6 

A4 

7E 8D 

03 

= 1OOOOOOOOOOOOOOOD 

1393 

00 

40 

7A 

10 F3 5A 

00 

= 1OOOOOOOOOOOOOOD 

139A 

00 

AO 

72 

AE 

18 09 

00 

= 1OOOOOOOOOOOOOD 

13A1 

00 

10 

A3 

D4 

E8 OÖ 

00 

= 1OOOOOOOOOOOOD 

13A8 

00 

E8 

76 

48 

17 00 

00 

= 1OOOOOOOOOOOD 

13AF 

00 

E4 

OB 

54 

02 00 

00 

= 1OOOOOOOOOOD 

13B6 

00 

CA 

9A 

3B 00 00 

00 

= 1OOOOOOOOOD 

13BD 

00 

El 

F5 

05 

00 00 

00 

= 1OOOOOOOOD 

13C4 

80 

96 

98 

00 

00 00 

00 

= 1OOOOOOOD 

13CB 

40 

42 

OP 

00 

00 00 

00 

- 1OOOOOOD 

13D2 

AO 

86 

01 




= 1OOOOOD 

13D5 

10 

27 

00 




= 1OOOOD 

13D8 

10 

27 





= 1OOOOD 

13DA 

E8 

03 





= 1OOOD 

13DC 

64 

00 





= 10OD 

13DE 

OA 

00 





= 10D 

13E0 

01 

00 





= ID 
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UP FUER SQR UND ATN 

BEWIRKT MULTIPLIKATION DES ERGEBNISSES MIT -1 


13E2 

21 82 09 

LD 

HL,0982 

;X = 

-X - ADRESSE NACH HL 

13E5 

E3 

EX 

(SP),HL 

;MIT 

RUECKSPRUNGADRESSE VERTAUSCHEN 

13E6 

E9 

JP 

(HL) 

;ZUR 

RUECKSPRUNGADRESSE SPRINGEN 


UP SQR (AP,BC,DE,HL) 

** SQR-FUNKTION 

BILDET DIE WURZEL EINER ZAHL 
I:X=ARGUMENT 
0:X=PUNKTIONSWERT 


13E7 

CD 

A4 

09 

CALL 

09A4 

;ARGUMENT IN DEN STACK 

13EA 

21 

80 

13 

LD 

HL,1380 

;ZEIGER AUF KONSTANTE 0.5 

13ED 

CD 

Bl 

09 

CALL 

09B1 

;0.5 NACH X 

13F0 

18 

03 


JR 

13F5 

;SPRUNG NACH (SP) ** X 


UP POWER (AP,BC,DE,HL) 

BERECHNET DIE POTENZ EINER ZAHL 
I:(SP)..(SP+3)=BASIS 
X=EXPONENT 
0:X=ERGEBNIS 


13F2 

CD 

Bl 

OA 

CALL 

0 AB1 

13E5 

CI 



POP 

BC 

13F6 

Dl 



POP 

DE 

13F7 

CD 

55 

09 

CALL 

0955 

13FA 

78 



LD 

A,B 

13FB 

28 

3C 


JR 

Z.1439 

13FD 

F2 

04 

14 

JP 

P,1404 

1400 

B7 



OR 

A 

1401 

CA 

9A 

19 

JP 

Z, 199A 

1404 

B7 



OR 

A 

1405 

CA 

79 

07 

JP 

Z,0779 

1408 

D5 



PUSH 

DE 

1409 

C5 



PUSH 

BC 

140A 

79 



LD 

A,C 

HOB 

F6 

7F 


OR 

7F 

140D 

CD 

BF 

09 

CALL 

09BF 

1410 

F2 

21 

14 

JP 

P,1421 

1413 

D5 



PUSH 

DE 

1414 

C5 



PUSH 

BC 

1415 

CD 

40 

OB 

CALL 

0B40 

1418 

CI 



POP 

BC 

1419 

Dl 



POP 

DE 

141A 

F5 



PUSH 

AF 

141B 

CD 

OC 

OA 

CALL 

OAOC 

141E 

El 



POP 

HL 

141F 

7C 



LD 

A,H 

1420 

1F 



RRA 


1421 

El 



POP 

HL 

1422 

22 

23 

41 

LD 

(4123),HL 

1425 

El 



POP 

HL 

1426 

22 

21 

41 

LD 

(4121),HL 

1429 

DC 

E2 

13 

CALL 

C,13E2 

142C 

CC 

82 

09 

CALL 

Z,0982 

142F 

D5 



PUSH 

DE 

1430 

C5 



PUSH 

BC 

1431 

CD 

09 

08 

CALL 

0809 

1434 

CI 



POP 

BC 

1435 

Dl 



POP 

DE 

1436 

CD 

47 

08 

CALL 

0847 


EXPONENT IN SINGLE UMWANDELN 
BASIS NACH Y 

EXPONENT TESTEN 
EXP BASIS NACH A 

EXPONENT = 0? —> EXP (0) BILDELT ERGEBNIS (l) 

EXPONENT > 0? —> SPRUNG 
BASIC = 0 UND EXPONENT < 0? 

JA, /O-ERROR 

BASIC = 0 UND EXPONENT > 0? 

JA, 0 ALS ERG NACH X, FERTIG 
BASIS RETTEN 

BASIC > 0? 

Z=0, C=0 DAMIT BEI POSITIVER BASIC 1429 UND 142C NICHT AUSGEFUEHRT 
EXPONENT NACH Y 
JA 

EXPONENT RETTEN 

INT (EXPONENT) NACH X 
EXPONENT ZURUECK NACH Y 

LSB INT(EXPONENT) (NICHT NORMALISIERT) RETTEN 
INT (EXPONENT) = EXPONENT? 

LSB INT (EXPONENT) ZURUECK 
INT (EXPONENT) UNGERADE? 

BASIS NACH X 

MSB 

LSB 

JA, ERGEBNIS * (-1) 

INT (EXPONENT) = EXPONENT? —> BASIS = -BASIS 
(D.H. INT (EXPONENT) <> EXPONENT BLEIBT BASIS NEGATIV 
UND BEWIRKT IN LOG FC-ERROR) 

EXPONENT RETTEN 

LOG (BASIS) NACH X 
EXPONENT ZURUECK 

LOG (BASIS) * EXPONENT UND DAVON EXP BESTIMMEN 


UP 

** 


EXP (AF,BC,DE,HL) 
EXP-FUNKTION 
EXPONENTIALFUNKTION 
I:X=ARGUMENT 
0:X=FUNKTIONSWERT 


1439 

CD 

A4 

09 

CALL 

09A4 ; 

143C 

01 

38 

81 

LD 

BC ,8138 ;] 

143F 

11 

3B 

AA 

LD 

DE,AA3B 

1442 

CD 

47 

08 

CALL 

0847 ; 

1445 

3A 

24 

41 

LD 

A,(4124) ; 

1448 

FE 

88 


CP 

88 

144A 

D2 

31 

09 

JP 

NC,0931 ;< 

144D 

CD 

40 

OB 

CALL 

0B40 ; 

1450 

C6 

80 


ADD 

80 ; 

1452 

C6 

02 


ADD 

02 ; 

1454 

DA 

31 

09 

JP 

C,0931 

1457 

F5 



PUSH 

AF ; 

1458 

21 

F8 

07 

LD 

HL,07F8 ; 

145B 

CD 

OB 

07 

CALL 

070B 

145E 

CD 

41 

08 

CALL 

0841 ;1 

1461 

Fl 



POP 

AF ; 

1462 

CI 



POP 

BC ; 

1463 

Dl 



POP 

DE 

1464 

F5 



PUSH 

AF ; 

1465 

CD 

13 

07 

CALL 

0713 

1468 

CD 

82 

09 

CALL 

0982 

146B 

21 

79 

14 

LD 

HL,1479 ; 

146E 

CD 

A9 

14 

CALL 

14A9 

1471 

11 

00 

00 

LD 

DE,0000 ; 

1474 

CI 



POP 

BC 

1475 

4A 



LD 

C.D 

1476 

C3 

47 

0 « 

JP 

0847 ; 


EINER ZAHL BESTIMMEN 


ARG / LOG (2) NACH X (ERGIBT 2-EXP0NENTEN DES ERGEBNIS) 
2-EXP ERG >= 136D 

JA, IN ABHAENGIGKEIT VON SIGN ARG, FEBERLAUF ODER ERG=0 
INT (2-EXP ERG) NACH A UND X 
OFFSET ADDIEREN 
2-EXP ERG > 126D? 

JA, SIEHE OBEN (144A) 

2-EXP ERG (MIT OFFSET) RETTEN 
INT (ARG / LOG (2) ) - 1 NACH X 

MAL LOG (2) 

2-EXP-ERG ZURUECK 
ARG ZURUECK 

2-EXP ERG WIEDER RETTEN 

X = ( LOG(2) * INT (ARG / LN2 ) - 1 ) - ARG 

TAYLOR-REIHE BERECHNEN 

0.9 * 2 ** 2-EXP-ERG NACH Y 


;MIT REIKENERGEBNIS MULTIPLIZIEREN 


1479 08 


KONSTANTEN FUER EXP-REIHE 

;8 STUECK 
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147A 4U zu y4 74 

= -1.41316E-U4 

CÄ. - 1/7! ) - - 

147E 70 4F 2E 77 

= 1.32988E-03 

CA. 1/6!) 

1482 6E 02 88 7A 

= -8.30136E-03 

CA. - 1/5!) 

1486 E6 AO 2A 7C 

= 0.0416574 

CA. 1/4!) 

148A 50 AA AA 7E 

= -0.166665 

CA - \/V.) 

148E FF FF 7F 7F 

= 0.5 

= 1/2!) 

1492 00 00 80 81 

= -1 

= -1/1!) 

1496 00 00 00 81 

= 1 

= 1/0!) 


UP REIHEI (AF,BC,DE,HL) 

BERECHNET REIHE = CI * Z + C2 * Z**3 + C3 * Z**5 
I :X=Z 

'HL=ZEIGER AUF KOEFFIZIENTEN 
(HL)=ANZAHL DER REIHENGLIEDER 
(HL+1). ^KOEFFIZIENTEN 
0:X=REIHENERGEBNIS 


149A 

CD 

A4 

09 

CALL 

09A4 

Z RETTEN 

149D 

11 

32 

OC 

LD 

DE.OC32 

RUECKSPRUNGADRESSE SETZEN 

14A0 

D5 



PUSH 

DE 

(BERWIRKT MULTIPLIKATION MIT Z AM ENDE) 

14A1 

E5 



PUSH 

HL 

KOEFF.-ZEIGER RETTEN 

14A2 

CD 

BF 

09 

CALL 

09BF 

Z NACH Y 

14A5 

CD 

47 

08 

CALL 

0847 

Z**2 NACH X 

14A8 

El 



POP 

HL 

KOEFF.-ZEIGER ZURUECK 


UP REIHE2 (AF,BC,DE,HL) 

BERECHNET REIHE = CI + C2 * Z + C3 * Z**2 + C4 * Z**3 
I:SIEHE REIHEI 






0:SIEHE 

REIHEI 


14A9 

CD 

A4 

09 

CALL 

09A4 

Z RETTEN 

14AC 

7E 



LD 

a,(hl) 

ANZAHL DER REIHENGLIEDER NACH A 

14AD 

23 



INC 

HL 

ZEIGER AUF 1.KOEFFIZIENTEN 

14AE 

CD 

Bl 

09 

CALL 

09B1 

1.KOEFFIZIENTEN NACH X 

14B1 

06 

Fl 


LD 

B,F1 


(14B2 

Fl 


POP 

AF 

KOEFFIZENTENZAEHLER ZURUECK) 

14B3 

CI 



POP 

BC 

Z ODER Z**2 (REIHE 2 ODER 1) NACH Y 

14B4 

Dl 



POP 

DE 


14B5 

3D 



DEC 

A 

FERTIG? 

14B6 

C8 



RET 

Z 

JA 

14B7 

D5 



PUSH 

DE 

UND WIEDER RETTEN 

14B8 

C5 



PUSH 

BC 


14B9 

F5 



PUSH 

AF 

ZAEHLER RETTEN 

14BA 

E5 



PUSH 

HL 

KOEFF.-ZEIGER RETTEN 

14BB 

CD 

47 

08 

CALL 

0847 

X * Z (Z**2) 

14BE 

El 



POP 

HL 

KOEFF.-ZEIGER ZURUECK 

14BF 

CD 

C2 

09 

CALL 

09C2 

NAECHSTEN KOEFFIZIENTEN NACH Y 

14C2 

E5 



PUSH 

HL 

KOEFF.-ZEIGER RETTEN 

14C3 

CD 

16 

07 

CALL 

0716 

KOEFFIZIENTEN AUF X ADDIEREN 

14C6 

El 



POP 

HL 

KOEFF.-ZEIGER ZURUECK 

14C7 

18 

E9 


JR 

14B2 

WEITER 


14C9 

CD 

7F 

OA 

14CC 

7C 



14CD 

B7 



14CE 

FA 

4A 

IE 

14D1 

B5 



14D2 

CA 

FO 

14 

14D5 

E5 



14D6 

CD 

FO 

14 

14D9 

CD 

BF 

09 

14DC 

EB 



HDD 

E3 



14DE 

C5 



14DF 

CD 

CF 

OA 

14E2 

CI 



14E3 

Dl 



14E4 

CD 

47 

08 

14E7 

21 

F8 

07 

14EA 

CD 

OB 

07 

14ED 

C3 

40 

OB 


RND (AF,BC,DE,HL) 
RND-FUNKTION 

ERZEUGUNG EINER ZUFALLSZAHL 
I:X=DUMMY ARGUMENT (X-O) 
ODER INTERVALLENDE (X > 
0:X=ZUFALLSZAHL 


0) 


CALL 

LD 

OR 

JP 

OR 

JP 

PUSH 

CALL 

CALL 

EX 

EX 

PUSH 

CALL 

POP 

POP 

CALL 

LD 

CALL 

JP 


0A7F 

A,H 

A 

M,1E4A 

L 

Z,14F0 
HL 
14F0 
09BF 
DE, HL 
(SP),HL 
BC 

OACF 

BC 

DE 

0847 

HL,07F8 

070B 

0B40 


;ARGUMENT 
;ARGUMENT 


IN INTEGER UMWANDELN 
< 0 ? 


JA, FC-ERROR 
ARGUMENT = 0? 

JA, REELLE ZUFALLSZAHL ZWISCHEN 0 UND 1 ERZEUGEN 

ARGUMENT RETTEN 

REELLE ZUFALLSZAHL NACH X 

NACH Y 

ARGUMENT ZURUECK, ZUFALLSZAHL RETTEN 


;ARGUMENT ALS SINGLE NACH X 
;ZUFALLSZAHL NACH Y 

;ZUFALLSZAHL MAL ARG NACH X 
;PLUS 1 

;ERG = INT (ZUFALLSZAHL * ARG + l) 


UP RRND (AF,BC,DE,HL) 

REELLE ZUFALLSZAHL ERZEUGEN 

I:(4090)..(4092)=MULTIPLIKATOR (FESTKOMMA 24 BIT) 

(40AA)..(40AC)^LETZTE ZUFALLSZAHL (FESTKOMMA 24 BIT) 
0:X=ZUFALLSZAHL 


NEUE ZUFALLSZAHL = LETZTE ZUFALLSZAHL * 4253261D + 372837D 
(UEBERTRAEGE MISSACHTEN) 


14F0 

21 

90 

40 

LD 

HL,4090 

ZEIGER AUF MULTIPLIKATOR 

14F3 

E5 



PUSH 

HL 

RETTEN 

14F4 

11 

00 

00 

LD 

DE,0000 

ERGREG (= CDE) LOESCHEN 

14F7 

4B 



LD 

C,E 

14F8 

26 

03 


LD 

H,03 

BYTEZAEHLER = 3 

UFA 

2E 

08 


LD 

L,08 

BITZAEHLER = 8 

14FC 

EB 



EX 

DE, HL 

ERGREG MAL 2 

14FD 

29 



ADD 

HL, HL 

LSB 

14FE 

EB 



EX 

DE, FL 


14FF 

79 



LD 

A,C 

MSB 

1500 

17 



RLA 



1501 

4F 



LD 

C,A 

(SP),HL 


1502 

E3 



EX 

ZEIGER AUF FAKTOR ZURUECK 

1503 

7E 



LD 

A,(HL) 

BYTE LADEN 

1504 

07 



RLCA 


UND NAECHSTES BIT HERAUSSCHIEBEN 
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UäSH 

77 



LD 

rHLT,Ä 


1506 

E3 



EX 

(SP),HL 

ZEIGER WIEDER ZURUECK 

1507 

D2 

16 

15 

JP 

NC,1516 

BIT NICHT GESETZT? —> ADDITION UEBERSPRINGEN 

150A E5 



PUSH 

HL 

BYTEZAEHLER RETTEN 

150B 

2A 

AA 

40 

LD 

HL,(40AA) 

LETZTE ZUFALLSZAHL ZU ERG ADDIEREN 

150E 

19 



ADD 

HL,DE 

LSB 

150F 

EB 



EX 

DE.HL 


1510 

5A 

AC 

40 

LD 

A,(40AC) 

MSB 

1515 

89 



ADC 

C 


1514 

4P 



LD 

C,A 


1515 

El 



POP 

HL 

BYTEZAEHLER ZURUECK 

1516 

2D 



DEC 

L 

BYTE ABGEARBEITET? 

1517 

C2 

FC 

14 

JP 

NZ.14FC 

NEIN, NAECHSTES BIT 

151A E3 



EX 

(SP),HL 

ZEIGER AUF FAKTOR NACH HL 

151B 

23 



INC 

HL 

ZEIGER ERHOEHEN 

151 C 

E3 



EX 

(SP),HL 

UND WIEDER AUF STACK 

1 51D 

25 



DEC 

H 

BYTEZAEHLER - 1, FERTIG? 

151 E 

C2 

FA 

14 

JP 

NZ,14FA 

NEIN, WEITER 

1521 

El 



POP 

HL 

STACK KORRIGIEREN 

1522 

21 

65 

BO 

LD 

HL.B065 

ERG + 372837D ALS NEUE ZUFALLSZAHL SPEICHERN 

1525 

1 9 



ADD 

HL. DE 

LSB 

1526 

22 

AA 

40 

LD 

(40AA),HL 


1529 

CD 

EF 

OA 

CALL 

OAEF 

TYPX = SINGLE 

152 C 

3E 

05 


LD 

A,05 

MSB 

152E 

89 



ADC 

C 


1 52F 32 

AC 

40 

LD 

(40AC),A 


1552 

EB 



EX 

DE,HL 

NACH Y 

1555 

06 

80 


LD 

B,80 

EXP Y = 0 (DAMIT ZWISCHEN 0 UND 1) 

1555 

21 

25 

41 

LD 

HL,4125 

SIGN-FLAG SETZEN 

1558 

70 



LD 

(HL),b 

(ERG POSITIV) 

1559 

2B 



DEC 

HL 

EXP X = EXP Y 

155A 

70 



LD 

(hl),b 


155B 

4P 



LD 

C,A 

MSB NACH C 

1550 

06 

00 


LD 

B.00 

LSB LOESCHEN 

155E C3 

65 

07 

JP 

0765 

NORMALISIERUNG 




UP 

COS 

(AF.BC.DE,HL) 





** 

C OS-FONKTION 






COSINUS-FUNKTION BERECHNEN 





I:X=ARGUMENT 






0:X=FUNKTIONSWERT 


1541 

21 

8 B 

15 

LD 

HL,158B 

ZEIGER AUF Pl/2 

1544 

CD 

OB 

07 

CALL 

07ÖB 

PI/2 AUF ARGUMENT ADDIEREN 




UP 

SIN 

(AF.BC.DE.HL) 





** 

SIN-FUNKTION 






SINUS-FUNKTION BERECHNEN 





I:X=ARGUMENT 






0:X=FUNKTIONSWERT 






X = ARG / 2PI - INT (ARG / 2PI) 

1547 

CD 

A4 

09 

CALL 

09A4 

ARG RETTEN 

154A 

01 

49 

83 

LD 

BC,8349 

KONSTANTE 2PI NACH Y 

154D 

11 

DB 

OF 

LD 

DE,OFDB 


1550 

CD 

B4 

09 

CALL 

09B4 

2PI NACH X 

1555 

CI 



POP 

BC 

ARG NACH Y 

1554 

Dl 



POP 

DE 


1555 

CD 

A2 

08 

CALL 

08A2 

X = ARG / 2PI 

1558 

CD 

A4 

09 

CALL 

09A4 

ARG / 2PI RETTEN 

155B 

CD 

40 

OB 

CALL 

0B40 

INT (ARG / 2PI ) NACH X 

155E 

CI 



POP 

BC 

ARG / 2PI ZURUECK 

1 55P 

Dl 



POP 

DE 


1560 

CD 

13 

07 

CALL 

0713 

X = ARG / 2PI - INT (ARG / 2PI) 





INTERVALL (0..1) IN INTERVALL (-0.25..0.25) TRANSFORMIEREN 

1565 

21 

8 F 

15 

LD 

HL.158F 

ZEIGER AUF KONSTANTE 0.25 

1566 

CD 

10 

07 

CALL 

0710 

1/4 - X NACH X 

1569 

CD 

55 

09 

CALL 

0955 

X >= 0? 

156C 

37 



SCF 


FLAG FUER MULTIPLIKATION MIT (-1) LOESCHEN 

156D 

F2 

77 

15 

JP 

P,1577 

JA 

1570 

CD 

08 

07 

CALL 

0708 

0.5 + X NACH X 

1575 

CD 

55 

09 

CALL 

0955 

X >= 0? 

1576 

B7 



OR 

A 

FLAG FUER MULTIPLIKATION MIT -1 SETZEN 

1577 

E5 



PUSH 

AF 

UND RETTEN 

1578 

F4 

82 

09 

CALL 

P.0982 

JA, X = -X 

157B 21 

8 F 

15 

LD 

HL,158F 

ZEIGER AUF 1/4 

157E 

CD 

OB 

07 

CALL 

07ÖB 

1/4 + X NACH X 

1581 

Fl 



POP 

AF 

FLAG ZURUECK, GESETZT? 

1582 

D4 

82 

09 

CALL 

NC,0982 

NEIN, X = - X 

1585 

21 

93 

15 

LD 

HL,1593 

TAYLORREIHE BERECHNEN 

1588 

C3 

9A 

14 

JP 

149A 

(FAKTOR 2PI STECKT IN KOEFFIZIENTEN) 





KONSTANTEN 


158B 

DB 

OF 

49 81 



KONSTANTE 1.5708 (= Pl/2) 

158 F 00 

00 

00 7F 



KONSTANTE 0.25 





KONSTANTEN FÜER SIN-REIHE 

1595 

05 





5 STUECK 

1594 

BA 

D7 

IE 86 



= 39-7107 (CA. (2PI)**9/9!) 

1598 64 

26 

99 87 



=-76.575 (CA. -(2PI)**7/7!) 

159C 

58 

34 

23 87 



= 81.6022 (CA. (2Pl)**5/5!) 

15A0 

EO 

6 D 

A5 86 



=-41.3417 (CA. -(2PI)**3/3!) 

15A4 

DA 

OF 

49 83 



= 6.28319 (CA. (2PI)**1/1!) 




UP 

TAN 

(AF.BC.DE.HL) 






TAN-FUNKTION 






TANGENS-FUNKTION BERECHNEN 





I:X=ARGUMENT 






0:X=FUNKTI0NSWERT 


15A8 

CD 

A4 

09 

CALL 

09A4 

ARG RETTEN 
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IbAB CD 

TT 

T5— 

—CALL"' 

“T5 TT 

15AE 

CI 



POP 

BC 

15AF 

El 



POP 

HL 

15BO 

CD 

A4 

09 

CALL 

09A4 

15B3 

EB 



EX 

DE,HL 

15B4 

CD 

B4 

09 

CALL 

09B4 

15B7 

CD 

41 

1 b 

CALL 

1541 

15BA 

C3 

AO 

08 

JP 

08A0 


Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 

-(AKG) NACH X - - --- 

; ARG NACH Y 

;SIN (ARG) RETTEN 

;ARG NACH X 

;COS (ARG) NACH X 

;X= SIN (ARG) / COS (ARG) 


UP 

** 


ATN (AP,BC,DE,HL) 

ATN-FUNKTION 

ARCUSTANGENS-FUNKTION BERECHNEN 
I:X=ARGUMENT 
0:X=FUNKTIONSWERT 


15BD 

CD 

bb 

09 


CALL 


0955 

;ARG < 0? 


15C0 

FC 

E2 

13 


CALL 


M,13E2 

5 JA, ERG * (-1) 


15C3 

FC 

82 

09 


CALL 


M,0982 

;ABS (ARG) NACH X 


15C6 

3A 24 

41 


LD 


A.(4124) 

;ARG < 1? 


15C9 

FE 

81 



CP 


81 




15CB 

38 OC 



JR 


C,15D9 

; JA 


1 5CD 

01 

00 

81 


LD 


BC,8100 

;NEIN: X = 1 /ARG 

15D0 

bl 




LD 


D,C 


= 1 


15D1 

b9 




LD 


E,C 




15D2 

CD 

A2 

08 


CALL 


08A2 

v< 

II 

5 

o 


15D5 

21 

10 

07 


LD 


HL,0710 

;ADRESSE FUER (HL)-X NACH X 

15D8 

Eb 




PUSH 


HL 

;(MACHT OBIGE UMFORMUNG RUEC 

15D9 

21 

E3 

1 b 


LD 


HL,15E3 

;TAYLOR-REIHE BERECHNEN 

15DC 

CD 

9A 

14 


CALL 


i 49A 




15DF 

21 

8 B 

15 


LD 


HL,158B 

;ZEIGER AUF PI/2 


15E2 

C9 




RET 











KONSTANTE FUER ATN-REIHE 


15E3 

09 








9 STUECK 


15E4 

4A 

D7 

3B 78 





= 2.86623E-03 

CA 1/17) 

15E8 

02 

6 E 84 

TB 





= -0.0161657 

(CA -1/15 

IbEC 

FE 

CI 

2F 

7C 





= 0.0429096 

CA 1/13) 

15F0 

74 

31 

9A 7D 





= -0.0752896 

(CA -1/11 

1 bF4 

84 

3D 

5A 

7D 





= 0.106563 

CA 1/9) 

1 bF8 

C8 

7F 91 

7E 





= -0.142089 

ca -1 /7) 

15FC 

E4 

BB 

4C 

7E 





= 0.199936 

CA 1/5) 

IbOO 

6 C 

AA 

AA 

7F 





= -0.333331 

(CA -1/3) 

1604 

00 

00 

00 

81 





= 1 







SPRUNGTABELLE FUER FUNKTIONEN 







(TOKENS D7 BIS FA) 




1608 

8 A 09 

37 

OB 

77 09 D4 

27 EF 2A F5 

27 

E7 13 C9 14 

D7 BIS DE 

1618 09 

08 39 

14 

41 15 

47 

15 A8 15 BD 

15 

AA 2C 52 41 

DF BIS E6 

1628 

58 41 

5E 41 

61 41 

64 

41 67 41 6A 41 

6 D 41 70 41 

E7 BIS EE 

1638 7F OA Bl 

OA 

DB OA 

26 

OB 03 2A 36 

28 

C5 2A OF 2A 

EF BIS F6 

1648 

1 F 

2A 

61 

2A 

91 2A 

9A 

2A 



F7 BIS FA 


AUF STACK 


TABELLE DER BASIC-KEYWORDS (NACH AUFSTEIGENDEN TOKENS SORTIERT) 

DER ERSTE BUCHSTABE IST JEWEILS DURCH DAS GESETZTE BIT 7 GEKENNZEICHNET 



80 



81 



82 





83 



84 



1650 

C5 

4E 

44 

C6 

4F 

52 

D2 

45 

53 

45 

54 

D3 

45 

54 

C3 

4C 

ENDFORRESETSETCL 



85 



86 






87 




88 



1660 

53 

C3 

4D 

44 

D2 

41 

4E 

44 

4P 

4D 

CE 

45 

58 

54 

C4 

41 

SCMDRANDOMNEXTDA 




89 





8 A 



8 B 




8 C 



1670 

54 

41 

C9 

4E 

50 

55 

54 

C4 

49 

4D 

D2 

45 

41 

44 

CC 

45 

TAINPUTDIMREADLE 



8 D 




8 E 



8 F 


90 







1680 

54 

C7 

4F 

54 

4F 

D2 

55 

4E 

C9 

46 

D2 

45 

53 

54 

4F 

52 

TGOTORUNIFRESTOR 



91 





92 






93 



94 


1690 

45 

C7 

4P 

53 

55 

42 

D2 

45 

54 

55 

52 

4E 

D2 

45 

4D 

D3 

EGOSUBRETURNREMS 



5Ö 

95 




96 




97 






16A0 

54 

4P 

C5 

4C 

53 

45 

D4 

52 

4F 

4E 

D4 

52 

4P 

46 

46 

TOPELSETRONTROFF 


98 






99 






9A 





1 6B0 

C4 

45 

46 

53 

54 

52 

C4 

45 

46 

49 

4E 

54 

C4 

45 

46 

53 

DEFSTRDEFINTDEFS 




9B 






9C 




9D 





16C0 

4E 

47 

C4 

45 

46 

44 

42 

4C 

CC 

49 

4E 

45 

C5 

44 

49 

54 

NGDEFDBLLINEEDIT 


9E 





9F 






AO 



AI 



16D0 

C5 

52 

52 

4P 

52 

D2 

45 

53 

55 

4D 

45 

CF 

55 

54 

CF 

4E 

ERRORRESUMEOUTON 


A2 




A3 





A4 



A5 



A6 


16E0 

CF 

50 

45 

4E 

C6 

49 

45 

4C 

44 

C7 

45 

54 

DO 

55 

54 

C3 

OPENFIELDGETPUTC 






A7 




A8 





A9 




16F0 

4C 

4F 

53 

45 

CC 

4F 

41 

44 

CD 

45 

52 

47 

45 

CE 

41 

4D 

LOSELOADMERGENAM 



AA 




AB 




AC 




AD 




1700 

45 

CB 

49 

4C 

4C 

CC 

53 

45 

54 

D2 

53 

45 

54 

D3 

41 

56 

EKILLLSETRSETSAV 



AE 






AF 






BO 




1710 

45 

D3 

59 

53 

54 

45 

4D 

CC 

50 

52 

49 

4E 

54 

C4 

45 

46 

ESYSTEMLPRINTDEF 


Bl 




B2 





B3 




B4 




1720 

DO 

4P 

4B 

45 

DO 

52 

49 

4E 

54 

C3 

4F 

4E 

54 

CC 

49 

53 

POKEPRINTCONTLIS 



B5 





B6 






B7 





1730 

54 

CC 

4C 

49 

53 

54 

C4 

45 

4C 

45 

54 

45 

CI 

55 

54 

4P 

TLLISTDELETEAUTO 


B8 





B9 





BA 





BB 


1740 

C3 

4C 

45 

41 

52 

C3 

4C 

4F 

41 

44 

C3 

53 

41 

56 

45 

CE 

CLEARCLOAD CSAVEN 




BC 




BD 


BE 


BF 





CO 

EWTAB(TOFNUSINGV 

1750 

45 

57 

D4 

41 

42 

28 

D4 

4F 

C6 

4E 

D5 

53 

49 

4E 

47 

D6 




CI 



C2 



C3 



C4 



1760 

41 

52 

50 

54 

52 

D5 

53 

52 

C5 

52 

4C 

C5 

52 

52 

D3 

54 

ARPTRUSRERLERRST 





C5 





C6 





C7 


1770 

52 

49 

4E 

47 

24 

C9 

4E 

53 

54 

52 

DO 

4F 

49 

4E 

54 

D4 

RINGSINSTRCHECKT 




C8 



C9 






CA 



IME$MEMINKEY $THE 

1780 

49 

4D 

45 

24 

CD 

45 

4D 

C9 

4E 

4B 

45 

59 

24 

D4 

48 

45 


CB 



CC 




CD 

CE 

CF 

DO 

Dl 

D2 




1790 

4E 

CE 

4P 

54 

D3 

54 

45 

50 

AB 

AD 

AA 

AF 

DB 

CI 

4E 

44 

NNOTSTEP+-*/ÄAND 

D3 


D4 

D5 

D6 

D7 



D8 



D9 



DA 


OR>=<SGNINTABSFR 

17A0 

CF 

52 

BE 

BD 

BC 

D3 

47 

4E 

C9 

4E 

54 

CI 

42 

53 

C6 

52 


DB 



DC 



DD 



DE 



DF 




17B0 

45 

C9 

4E 

50 

DO 

4F 

53 

D3 

51 

52 

D2 

4E 

44 

CC 

4P 

47 

EINPPOSSQRRNDLOG 
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ED ET E2-E3- E4 -E5--- 

17CO C5 58 50 C3 4F 53 D3 49 4E D4 41 4E CI 54 4E DO EXPCOSSINTANATNP 

E6 E7 E8 E9 EA 

17D0 45 45 4B C3 56 49 C3 56 53 C3 56 44 C5 4E 46 CC EEKCVICVSCVDEOPL 

EB EC ED EE 

17E0 4F 43 CC 4F 46 CD 4B 49 24 CD 4B 53 24 CD 4B 44 OCLOFMKI$MKS$MKD 

EF FO Fl F2 

17F0 24 C3 49 4E 54 C3 53 4E 47 C3 44 42 4C C6 49 58 SCINTCSNGCDBLFIX 

F3 F4 F5 F6 F7 

1800 CC 45 4E D3 54 52 24 D6 41 4C CI 53 43 C3 48 52 LENSTRSVALASCCHR 

F8 F9 FA 

1810 24 CC 45 46 54 24 D2 49 47 48 54 24 CD 49 44 24 $LEFT$RIGHT$MID$ 

FB 

1820 A7 80 


SPRUNGTAB ELLE FUER BEFEHLE 
(TOKENS 80 BIS BB) 

1822 AE ID AI IC 38 01 35 01 C9 01 73 41 D3 01 B6 22 
1832 05 1F 9A 21 08 26 EF 21 21 1F C2 IE A3 IE 39 20 
1842 91 ID Bl IE DE IE 07 1F A9 ID 07 1F F7 ID F8 ,J 
1852 00 IE 03 IE 06 IE 09 IE A3 41 60 2E F4 1F AF 1F 
1862 FB 2A 6C 1F 79 41 7C 41 7F 41 82 41 85 41 88 41 
1872 8B 41 8E 41 91 41 97 41 9A 41 AO 41 B2 02 67 20 
1882 5B 41 Bl 2C 6F 20 E4 ID 2E 2B 29 2B C6 2B 08 20 
1892 7A IE 1F 2C F5 2B 49 1B 


80 BIS 87 
88 BIS 8F 
90 BIS 97 
98 BIS 9F 
AO BIS A7 
A8 BIS AF 
BO BIS B7 
B7 BIS BB 


PRIORITAETSCODES FUER OPERATOREN 
DER OPERATOR MIT DEM HOEHEREN CODE HAT PRIORITAET 
+-*/** ANDOR 
189A 79 79 7C 7C 7F 50 46 


SPRUNGTABELLE FUER TYPANPASSUNG 
CDBL CINT CSNG TESTS 

18A1 DB OA 00 00 7F OA F4 OA Bl OA 


SPRUNGTABELLE FUER GRUNDRECHENARTEN UND VERGLEICH 
ENTHAELT FUER JEDEN NUMERISCHEN DATENTYP DIE ADRESSEN DER 5 UP 
+ - * / VERGLEICH 

18AB 77 OC 70 OC AI OD E5 OD 78 OA ;DOUBLE 

18B5 16 07 13 07 47 08 A2 08 OC OA ;SINGLE 


18BF D2 OB C7 OB F2 OB 90 24 39 OA 


INTEGER 


'S 


FEHLERABKUERZUNGEN 

NACH AUFSTEIGENDEN FEHLERCODES SORTIERT 
18C9 4E 46 53 4E 52 47 4F 44 46 43 4F 56 4F 4D 55 4C NFSNRGQDFCOVOMUL 

18D9 42 53 44 44 2F 30 49 44 54 4D 4F 53 4C 53 53 54 BSDD/OIDTMOSLSST 

18E9 43 4E 4E 52 52 57 55 45 4D 4F 46 44 4C 33 CNNRRWUEM0FDL3 


DATEN UND UP'S DIE BEI EASICINTIALISIERUNG INS RAM UEBERTRAGEN WERDEN 



TEXTE 

191D 20 45 72 72 6F 72 00 
1924 20 69 6E 20 00 

1929 52 45 41 44 59 OD 00 

1930 42 72 65 61 6B 00 


ERROR. 
IN . 
READY.. 
BREAK. 


1936 21 04 00 
1939 39 
193A 7E 
193B 23 
193C FE 81 
193E CO 


UP FUER FOR/EEXT UND GOSUB/PETURN 
HOLT DATEN VOM STACK ZURUECK 
LD HI,0004 ;SP + 4 NACH HL 

ADD HL,SP ;(2 RUECKSPRUNGADRESSEN UEBERGEKEN) 

LD A, (FL) :FLAG LADEN 

INC HL 

CP 81 ; DATEN VON F0R-L00P‘> 

RET NZ ;NEIN, FERTIG 
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1940 23 

INC 

HL 


1941 46 

LD 

B,(HL) ; 

(MSB) 

1942 23 

INC 

HL 


1943 E5 

PUSH 

HL ; 

ZEIGER RETTEN 

1944 69 

LD 

L,C ; 

LAUFVARIABLENADRESSE NACH HL 

1945 60 

LD 

H,B 


1946 7A 

LD 

A,D ; 

LAUFVARIABLE ANGEGEBEN? 

1947 B3 

OR 

E 


1948 EB 

EX 

DE,HL ; 

NEIN, MIT DER ADRESSE DER GEFUNDENEN LAUFVARIABLEN IN DE ZURUECK 

1949 28 02 

JR 

Z, 194D 


194B EB 

EX 

DE,HL 


194C DP 

RST 

18 

JA, = GEFUNDENER LAUFVARIABLER? 

194D 01 OE 00 

LD 

BC.OOOE 

14D NACH BC 

1950 El 

POP 

HL 

ZEIGER ZURUECK 

1951 C8 

RET 

Z 

JA, FERTIG 

1952 09 

ADD 

HL,BC 

ZEIGER AUF NAECHSTE STACK-DATEN 

1953 18 E5 

JR 

193A 

WEITER 


SPEICHERPLATZ FUER EINZUFUEGENDE PROGRAMMZEILE ODER VARIABLE FREIMACHEN 

1955 CD 6C 19 

CALL 

196C ; 

LIEGT HL NICHT MEHR IM FREIEN SPEICHER? —> OM-ERROR 

1958 C5 

PUSH 

BC ; 

(DE)..(BC) NACH (..HL) TRANSPORTIEREN: HL UND BC VERTAUSCHEN 

1959 E3 

EX 

(SP),HL 


195A CI 

POP 

BC 


195B DP 

RST 

18 ; 

ANFANG DES QUELLBLOCKS ERREICHT? 

195C 7E 

LD 

a,(hl) 

1 BYTE UMSPEICHERN 

195D 02 

LD 

(BC),A 


195E C8 

RET 

z 

JA, FERTIG 

i95 p ob 

DEC 

BC 

ZEIGER DEC. 

I960 2B 

DEC 

HL 


1961 18 F8 

JR 

195B 

WEITER 


TESTEN 

OB 2*C BYTE FREI, WENN NICHT OM-ERROR 

1963 E5 

PUSH 

HL 

Hl RETTEN 

1964 2A PD 40 

LD 

HL.(40FD) 

ANFANG DES FREIEN SPEICHERS NACH HL 

1967 06 00 

LD 

B.ÖO 

MSB BC LOESCHEN 

1969 09 

ADD 

hL,bc 

UND 2 MAL ADDIEREN 

196A 09 

ADD 

HL,BC 


196B 3E E5 

LD 

A.E5 


(196C E5 

PUSH 

Hi 

TESTEN OB HL NOCH IN FREIEM SPEICHER: HL RETTEN) 

196D 3E C6 

LD 

A,C6 

HL > FFC6? 

196P 95 

SUB 

L 


1970 6F 

LD 

L.A 


1971 3E PP 

LD 

A,PP 


1973 9C 

SBC 

H 


1974 38 04 

JR 

C,197A 

JA, OM-ERROR 

1976 67 

LD 

H, A 

HL + 4A > = SP? 

1977 39 

ADD 

HL,SP 


1978 El 

POP 

HL 

HL ZURUECK 

1979 D8 

RET 

c 

NEIN, ZURUECK 


OM-ERROR 


197A IE OC 

LD 

E,OC 

OM-ERROR-CODE NACH E 

197C 18 24 

JR 

19A2 

ZUR ERROR-ROUTINE 


IMPLIZITES END 


197E 2A A2 40 

LD 

HL,(40A2) 

DIREKT-MODE? (AKTUELLE ZNR = FFFF) 

1981 7C 

LD 

A,H 


1982 A5 

AND 

L 


1983 3C 

INC 

A 


1984 28 08 

JR 

Z, 1 98E 

NEIN, SPRUNG IN END 

1986 3A P2 40 

LD 

A,(40F2) 

TRAPFLAG GESETZT? 

1989 B7 

OR 

A 


198A IE 22 

LD 

E,22 

NR-ERROR-CODE NACH E 

198C 20 14 

JR 

NZ,19A2 

JA, NR-ERROR 

198E C3 CI ID 

JP 

1DC1 

SPRUNG IN END 


SYNTAX 

-ERROR IN DATAZEILE 

1991 2A DA 40 

LD 

HL,(40DA) 

LETZTE DATAZEILE 

1994 22 A2 40 

LD 

(40A2),HL 

ALS AKTUELLE ZNR APSPEICHERN 


SN-ERROR 


1997 IE 02 

LD 

E,02 

SN-ERROR-CODE NACH E 

1999 01 IE 14 

LD 

BC.141E 



/O-ERROR 


(199A 1E 14 

LD 

E, 14 

/O-ERROR-CODE NACH E) 

199C 01 IE 00 

LD 

BC,001E 



NF-ERROR 


(199D IE 00 

LD 

E,00 

NF-ERROR-CODE NACH E) 

199P 01 IE 24 

LD 

BC,241E 



RW-ERROR 


(19A0 IE 24 

LD 

E,24 

RW-ERROR-CODE NACH E) 


ERROR 

(CODE IN E) 


19A2 2A A2 40 

LD 

HL (40A2) 

AKTUELLE ZNR ALS 

19A5 22 EA 40 

LD 

(40EA),HL 

FEHLER-ZNR 

19A8 22 EC 40 

LD 

(40EC),HL 

UND '.'-ZNR ABSPEICHERN 

19AB 01 B4 19 

LD 

BC.19B4 

NAECHSTE ADRESSE IN ERROR-ROUTINE 

19AE 2A E8 40 

LD 

HL,(40E8) 

STACK-ANFANG NACH HL 

19B1 C3 9A 1B 

JP 

1B§A 

SPRUNG IN NEW: STACK INITIALISIEREN 

19B4 CI 

POP 

BC 

STACK KORRIGIEREN 

19B5 7B 

LD 

A,E 

FEHLERCODE NACH C 

19B6 4B 

LD 

C,E 


19B7 32 9A 40 

LD 

(409A),A 

ABSPEICHERN 

19BA 2A E6 40 

LD 

HT,_ (A0E6) 

AKTUELLEN POINTER 

19BD 22 EE 40 

LD 

(4ÖEE),HL 

ALS FEHLERPOINTER ABSPEICHERN 
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19C1 2A EA 40 
19C4 7C 
19C5 A5 


HL,(40EA) 

A,H 

L 


PEHLERZEILE = FFFF? 
(DIREKTMODE) 


19C6 

3C 



INC 

A 

19C7 

28 

07 


JR 

Z,19D0 

19C9 

22 

F5 

40 

LD 

(40F5),HL 

19CC 

EB 



EX 

DE,HL 

19CD 

22 

F7 

40 

LD 

(40F7),HL 

19D0 

2A 

FO 

40 

I,D 

HL,(40F0) 

19D3 

7C 



LD 

A,H 

19D4 

B5 



OR 

L 

19D5 

EB 



EX 

DE, HL 

19D6 

21 

F2 

40 

LD 

HL.40F2 

19D9 

28 

08 


JR 

Z,19E3 

19DB 

A6 



AND 

(HL) 

19DC 

20 

05 


JR 

NZ.19E3 

19DE 

35 



DEC 

(HL) 

19DF 

EB 



EX 

DE, HL 

19E0 

C3 

36 

ID 

JP 

1D36 

19E3 

AF 



XOR 

A 

19E4 

77 



LD 

(hl),a 

19E5 

59 



LD 

E.C 

19E6 

CD 

F9 

20 

CALL 

2ÖF9 

19E9 

21 

C9 

18 

LD 

HL,18C9 

19EC 

CD 

A6 

41 

CALL 

41A6 

19EF 

57 



LD 

D,A 

19F0 

3E 

3F 


LD 

A.3F 

19F2 

CD 

2A 

03 

CALL 

032A 

19F5 

19 



ADD 

HL.DE 

19F6 

7E 



LD 

A,(HL) 

19F7 

CD 

2A 

03 

CALL 

032A 

19FA 

D7 



RST 

10 

19FB 

CD 

2A 

0-3 

CALL 

032A 

19FE 

21 

ID 

19 

LD 

HL,1 91D 

1A01 

E5 



PUSH 

HL 

1A02 

2A 

EA 

40 

LD 

HL,(40EA) 

1A05 

E3 



EX 

(SP),HL 

1A06 

CD 

79 

35 

CALL 

3579 

1A09 

El 



POP 

HL 

1AOA 

11 

FE 

FF 

LD 

DE.FFFE 

1AOD 

DF 



RST 

18' 

1AOE 

CA 

74 

06 

JP 

Z,0674 

1 AI 1 

7C 



LD 

A,H 

1 AI 2 

A5 



AND 

L 

1 AI 3 

3C 



INC 

A 

1 AI 4 

C4 

A7 

OF 

CALL 

NZ,0FA7 

1 AI 7 

3E 

CI 


LD 

A,C1 


;JA, KEINE UNTERBRECHUNGSPARAMTER ABSPEICHERN 

;FEHLERZNR NACH CONTZNR 

; FEHLERPOINTER NACH HL 

;ALS CONTPOINTER ABSPEICHERN 

;TRAPPOINTER LADEN 

;= 0 ? 

;(KEIN FEHLERTRAP) 

;NACH DE 

;TRAPFLAG-ADRESSE NACH HL 
; JA 

;NOCH OFFENER FEHLERTRAP (OHNE RESUME)? 

;JA, KEINEN TRAP MEHR DURCHFUEHREN 
;TRAPFLAG SETZEN 
;TRAPPOINTER NACH HL 

;UND PROGRAMMaUSFUEHRUNG DORT FORTSETZEN 
;TRAPFLAG LOESCHEN 

;FEHLERCODE ZURUECK NACH E 

;CR, WENN NOETIG 

;ZEIGER AUF FEHLERABKUERZUNGEN 

;DOS-AUFRUF FUER KLARTEXT-FEHLERMELDUNGEN 

;D = 0 

NACH A 
;AUSGEBEN 

;FEHLERCODE AUF TABELLENANFANG ADDIEREN 

; 1.BUCHSTABEN DER FEHLERABKUERZUNG LADEN 

;UND AUSGEBEN 

;2.BUCHSTABEN LADEN 

;UND AUSGEBEN 

;ZEIGER AUF TEXT ' ERROR' 

;RETTEN 

;FEHLERZNR LADEN 
;MIT TEXTZEIGER VERTAUSCHEN 
ERROR' AUSDRUCKEN 
;FEHLER-ZNR NACH HL 
;=FFFE? (65534D) 

;(D.H. FEHLER IN INTIALISIERUNG) 

;JA, NEUE SYSTEMINITIALISIERUNG 
;=FFFF? (65535D) 

;(DIREKTMODE) 

;NEIN, ' IN ' FEHLER-ZNR DRUCKEN 


HAUPTSCHLEIFE 
ANSPRUENGE: 1 AI 8 ODER 1 AI 9 

(1 AI 8 CI POP BC ;STACK KORRIGIEREN) 

1 AI 9 CD 8B 03 CALL 038B ;AUSGABE-FLAG AUF DISPLAY, CR, WENN NOETIG AUF DRUCKER AUSGEBEN 

1 AI C CD AC 41 CALL 41AC 

1A1F 00 00 00 NOP NOP NOP ;FREI 

1A22 CD F9 20 CALL 20F9 ;CR AUF DISPLAY, WENN NOETIG 

1A25 21 29 19 LD HL,1929 ;ZEIGER AUF 'READY' 

1A28 CD 92 38 CALL 3892 ;READY AUSGEBEN 

1A2B 3A 9A 40 LD A,(409A) ;HETZER FEHLER = SN-ERROR? 

1A2E D6 02 SUB 02 

1A30 CC 53 2E CALL Z.2E53 ;JA, EDIT FEHLER-ZNR 

1A33 21 FF FF LD HL,FFFF ;AKTUELLE ZNR = FFFF 

1A36 22 A2 40 LD (4ÖA2),HL ;(DIREKTMODE) 

1A39 3A El 40 LD A,(40E1) ;AUTO? 

1A3C B7 OR A 

1A3D 28 37 JR Z,1A76 ;NEIN NORMALE EINGABE 


1A3F 2A E2 40 
1A42 E5 
1A43 CD AF OF 
1A46 Dl 
1A47 D5 
1A48 CD 2C 1B 
1A4B 3E 2A 
1A4D 38 02 
1A4F 3E 20 
1A51 CD 2A 03 
1A54 CD 61 03 
1A57 Dl 
1A58 30 06 
1A5A AF 
1A5B 32 El 40 
1A5E 18 B9 
1A60 2A E4 40 
1A63 19 
1A64 38 F4 
1A66 D5 
1A67 11 F9 FF 
1A6A DF 
1A6B Dl 
1A6C 30 EC 
1A6E 22 E2 40 
1A71 F6 FF 
1A73 C3 EB 2F 


PROGRAMMEINGABE UNTER AUTO 


HL,(40E2) 

HL 

OFAF 

DE 

DE 


NAECHSTE AUTO-ZNR LADEN 

RETTEN 

AUSGEBEN 

NACH DE UND WIEDER RETTEN 


CALL 1B2C 

LD A,2A 

JR C,1A51 

LD A,20 

CALL 032A 

CALL 0361 

POP DE 

JR NC.1A60 

XOR A 

LD (40E1),A 

JR 1 AI 9 

LD HL,(40E4) 

ADD HL,DE 

JR C,1A5A 

PUSH DE 

LD DE,FFF9 

RST 18 


ENTSPRECHENDE ZEILE IM PROGRAMMTEXT SUCHEN 
'*' NACH A 
JA 

NEIN, ' ' NACH A 

'*' AUSGEBEN WENN ZEILE VORHANDEN, SONST ' 

EINGABE EINER ZEILE IN BUFFER 

AUTO-ZNR ZURUECK 

KEIN BREAK? —> NORMAL WEITER 

AUTO-FLAG LOESCHEN 

UND ZUR HAUPTSCHLEIFE 
AUTO-INC NACH HL 

AUF AUTO-ZNR ADDIEREN, UEBERLAUF? 

JA, AUTO-MODE VERLASSEN 

AUTO-ZNR RETTEN 

NAECHSTE AUTO-ZNR > 65528D? 


ZEILE VORHANDEN? 


POP DE 

JR NC,1A5A 

LD (40E2),HL 

OR FF 

JP 2FEB 


AUTO ZNR ZURUECK 

JA, AUTO-MODE VERLASSEN 

NEUE AUTO-ZNR ABSPEICHERN 

UEBER EDIT (E) IN HAUPTSCHLEIFE ZUM ABSPEICHERN 


NORMALE PROGRAMMEINGABE 

1A76 3E 3E LD A,3E ;'>' NACH A 

1A78 CD 2A 03 CALL 032A ;PROMPTZEICHEN AUSGEBEN 
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TT7F 

"crr 

bl 

TFT 


“CAUCT 

03FI 

; ZEILE IN BUFFEK' EINGEHEN" ' BHEAKV 

1A7E 

DA 

33 

1A 


JP 

C,1A33 

;JA, ZUM HAUPTSCHLEIFENANPANG 

1A81 

D7 



RST 

10 

;1. ZEICHEN (<> ' ') SUCHEN 

1A82 

3C 




INC 

A 

;= ZEILENENDE (0)? 

1A83 

3D 




DEC 

A 

1A84 

CA 

33 

1A 


JP 

Z.1A33 

;JA, ZUM HAUPTSCHLEIFENANPANG 

1A87 

P5 



PUSH 

AP 

;PLAG (CY=1, WENN 1.ZEICHEN ZIPPER) RETTEN 

1A88 

CD 

5A 

IE 


CALL 

1E5A 

;ZNR DECODIEREN 

1A8B 

2B 



DEC 

HL 

;BUPPERZEIGER ZURUECK HINTER ZNR: ZEIGER DEC. 

1A8C 

7E 




LD 

Mhl) 


1A8D 

PE 

20 



CP 

;LEERZEICHEN? 

1A8F 

28 

PA 



JR 

Z,1A8B 

;JA, WEITER ZURUECK 

1A91 

23 




INC 

HL 

;BUPPERZEIGER AUF ERSTES ZEICHEN NACH ZNR 

1A92 

7E 




LD 

2Ö (HL) 


1A93 

PE 

20 



CP 

;LEERZEICHEN? 

1A95 

CC 

C9 

09 


CALL 

Z,09C9 

;JA, INC HL, 1.LEERZEICHEN UEBERGEHEN 




;(WIRD BEI LIST AUTOMATISCH EINGEFUEGT) 

1A98 D5 




PUSH 

DE 

;ZNR RETTEN 

1A99 

CD 

CO 

1B 


CALL 

1BC0 

;ZWISCHENCODE ERZEUGEN (HL = ANF-1, BC = LAENGE+5) 

1A9C 

Dl 




POP 

DE 

;ZNR ZURUECK 

1A9D 

PI 




POP 

AP 

;PLAG ZURUECK, DIREKTBEPEHL? 

1A9E 

22 

E6 

40 


LD 

(40E6),HL 

;ANFANG DES ZWISCHENCODES ALS AKTUELLEN POINTER ABSPEICHERN 

1AA1 

CD 

B2 

41 


CALL 

41B2 


1AA4 

D2 

5A 

ID 


JP 

NC.1D5A 

;JA, DIREKTBEPEHL AUSFUEHREN 

1AA7 

D5 




PUSH 

DE 

;ZNR RETTEN 

1AA8 

C5 




PUSH 

BC 

;ZEILENLAENGE RETTEN 

1AA9 

AP 




XOR 

A 

;ELAG PUER RESUME UND RETURN LOESCHEN 

1AAA 

32 

DD 

40 


LD 

(40DD),A 

;UND ABSPEICHERN 

1AAD 

D7 




RST 

10 

;ZEILE LEER? 

1AAE 

B7 




OR 

A 

;JA, PLAG Z=1 

1AAF 

F5 




PUSH 

AP 

;PLAG RETTEN 

1 ABO 

EB 




EX 

DE. HL 

;ZNR ALS 

1 ABI 

22 

EC 

40 


LD 

(4ÖEC),HL 

;'.'-ZNR ABSPEICHERN 

1AB4 

EB 




EX 

DE. HL 


1AB5 

CD 

2C 

1B 


CALL 

1B2C 

;ZEILE IN PROGRAMMTEXT SUCHEN 

1AB8 

C5 




PUSH 

BC 

;ZEIGER DARAUF RETTEN 

1AB9 

DC 

E4 

2B 


CALL 

C,2BE4 

;GEFUNDEN? —> LOESCHEN 

1 ABC 

Dl 




POP 

DE 


1ABD 

PI 




POP 

AP 

;LEERE ZEILE? 

1ABE 

D5 




PUSH 

DE 


1ABF 

28 

27 



JR 

Z,1AE8 

;JA, ZUM HAUPTSCHLEIFENENDE 

1AC1 

Dl 



POP 

DE 

;ZEILENADRESSE ZURUECK 

1AC2 

2A 

P9 

40 


LD 

^ er ;, nXi 

;PROGRAMMTEXTENDE NACH HL 

1AC5 

E3 



EX 

;MIT ZEILENLAENGE VERTAUSCHEN 

1AC6 

CI 




POP 

BC 

;PROGRAMMTEXTENDE NACH BC 

1AC7 09 




ADD 

HL,BC 

;NEUES PROGRAMMTEXTENDE NACH HL 

1AC8 

E5 




PUSH 

HL 

;UND RETTEN 

1AC9 

CD 

55 

19 


CALL 

1955 

;PLATZ PUER EINZUFUEGENDE ZEILE FREIMACHEN, WENN MOEGLICH 

1ACC 

El 


POP 

HL 

;NEUES PROGRAMMTEXTENDE ZURUECK 

1ACD 

22 

F9 

40 


LD 

(40F9),HL 

;UND ABSPEICHERN 

1 ADO 

EB 



EX 

DE, HL 

;ZEILENADRESSE NACH HL 

1 AD 1 

74 




LD 

(HL),H 

;IRGENDEINEN ZEILENZEIGER <> 0 ABSPEICHERN 

1AD2 

Dl 




POP 

DE 

;ZNR ZURUECK 

1AD3 

E5 




PUSH 

HL 

;ZEILENADRESSE RETTEN 

1AD4 

23 




INC 

HL 

;ZEILENZEIGER AUF ZEILENADRESSE 

1AD5 

23 




INC 

HL 

;ZNR ABSPEICHERN (LSB) 

1ÄD6 

73 




LD 

(HL),E 

1AD7 

23 




INC 

HL 

;(MSB) 

1AD8 

72 




LD 

(HL),D 

1AD9 

23 




INC 

HL 

;I/O-BUFFERANFANG NACH DE 

1ADÄ 

EB 




EX 

DE, HL 

HL,(40A7) 

1ADB 

2A 

A7 

40 


LD 


1 ADE 

EB 




EX 

DE, HL 


1 ADE 

1B 




DEC 

DE 

2, DORT PAENGT ZWISCHENCODE AN 

1AEO 

1B 




DEC 

DE 


1AE1 

1A 




LD 

A,(DE) 

;ZWISCHENCODE IN PROGRAMMTEXT UEBERTRAGEN: 

1AE2 

77 




LD 

(HL) ,A 

;1 BYTE 

1AE3 

23 




INC 

HL 

;ZEIGER INC. 

1AE4 

13 




INC 

DE 


1AE5 

B7 




OR 

A 

;ZEILENENDE ERREICHT? 

1AE6 

20 

P9 



JR 

NZ,1 AE1 

;NEIN, WEITER 

1AE8 

Dl 



POP 

DE 

;ZEILENADRESSE NACH DE 

1AE9 

CD 

PC 

1A 


CALL 

1 APC 

;AB ZEILENADRESSE POINTER ERNEUERN 

1AEC 

CD 

B5 

41 


CALL 

41B5 


1AEF 

CD 

5D 

1B 


CALL 

1B5D 

;VARTABELLE UND ANDERE PROGRAMMDATEN LOESCHEN 

1AP2 

CD 

B8 

41 


CALL 

41B8 


1AP5 

C3 

33 

1A 


JP 

1A33 

;ZUM ANFANG DER HAUPTSCHLEIFE 





UP 

LPNT 

(AP.DE,HL) 







ZEILENZEIGER IM GANZEN PROGRAMMTEXT ERNEUERN 

I:/ 

1AF8 

2A 

A4 

40 


0:/ 

LD 

HL,(40A4) 

;PROGRAMMTEXTANFANG NACH DE 

1AFB 

EB 




EX 

DE, HL 






UP 

LPNTP 

(AP,DE,HL) 







ZEILENZEIGER TEILWEISE ERNEUERN 






I:DE= 

0:/ 

LD 

ZEILENADRESSE 

DERJENIGEN ZEILE, VON DER AN DIE ZEILENZEIGER ERNEURT WERDEN 

1APC 

62 




H,D 

;ZEILENANFANG NACH HL 

1 APD 

6B 




LD 

L,E 


1APE 

7E 




LD 

A,(HL) 

;ZEILENZEIGER = 0? 

1 APP 

23 




INC 

HL 

;(PROGRAMMTEXTENDE ERREICHT) 

1B00 

B6 




OR 

(HL) 


1 BOI 

C8 




RET 

Z 

;JA, FERTIG 

1B02 

23 




INC 

HL 

;ZNR UND ZEIGER UEBERGEHEN 

1B03 

23 




INC 

HL 


1B04 

23 




INC 

HL 

> 

n 

o 

1B05 

AP 




XOR 

A 
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1B07 23 
1B08 20 PC 
1 BOA EB 
1B0B 73 
1B0C 23 
1B0D 72 
1B0E 18 EC 


HL 

NZ,1B06 
DE, HL 
(HL),E 
HL 

(HL),D 
1APC 


;ZEIGER INC. 

;NEIN, WEITER 
;ZEILENANPANG NACH HL 

;NAECHSTEN ZEILENANPANG ALS ZEILENZEIGER ABSPEICHERN 

;(MSB) 

;WEITER 


UP LARG (AF,BC,DE,HL) 

ANALYSIERT ZWEI ARGUMENTE FUER LIST 
FEHLENDE ARGUMENTE WERDEN ENTSPRECHEND ERGAENZT 
I:F:Z=1, WENN SOFORT ZEILENENDE 
HL=ZEIGER AUF DEN TEXT 

0:BC=ZEILENADRESSE DER 1.ZNR, ODER WENN NICHT VORHANDEN, DER NAECHSTEN ZEILE 
(PROGRAMMANFANG BEI FEHLENDEM 1.ARGUMENT) 

(SP), (SP+1)=2.ZNR 

(65530D, WENN 2.ARGUMENT FEHLT ABER ANGEGEBEN, SONST 1.ZNR) 


1B10 11 

00 

00 

LD 

DE,0000 

1 .ZNR AUF 0 

1B13 D5 



PUSH 

DE 

RETTEN 

1 Bl 4 28 09 


JR 

Z,1B1F 

ZEILENENDE? —> WEITER 

1B16 Dl 



POP 

DE 

0 AUS STACK ENTFERNEN 

1B17 CD 

4P 

IE 

CALL 

1E4F 

1.ZNR DECODIEREN 

1B1A D5 



PUSH 

DE 

UND RETTEN 

1B1B 28 

OB 


JR 

Z, 1B28 

KEINE WEITEREN ZEICHEN? —> WEITER, 2.ZNR 

1B1D CF 



RST 

08 

SYNTAXCHECK: ZEIGER AUF '-'-TOKEN? 

1B1E CE 





N 

1B1F 11 

FA 

FF 

LD 

DE, FFF A 

2.ZNR = FFFA (65530D) 

1B22 C4 

4P 

IE 

CALL 

NZ,1E4F 

WEITERE ZEICHEN? —> 2.ZNR DECODIEREN 

1B25 C2 

97 

19 

JP 

NZ,1997 

NOCH MEHR ZEICHEN? —> SN-ERROR 

1B28 EB 



EX 

DE, HL 

2.ZNR NACH HL 

1B29 Dl 



POP 

DE 

1.ZNR NACH DE 

1B2A E3 



EX 

(SP),HL 

2.ZNR MIT RUECKSPRUNGADRESSE VERTAUSCHEN 

1B2B E5 



PUSH 

HL 

UND RUECKSPRUNGADRESSE WIEDER RETTEN 


UP SEINE (AF,BC,DE,HL) 

SUCHT ZEILE IM PROGRAMMTEXT 

I:DE=ZNR DER ZEILE 

0:ZEILE VORHANDEN: CY=1 , Z=1 

BC=ZEILENADRESSE 
HL=ADRESSE DER NAECHSTEN ZEILE 
ZEILE NICHT VORHANDEN: CY=0, Z=0 

BC=ZEILEN ADRESSE DER NAECHSTEN ZEILE 
HL=ZEILENADRESSE DER DARAUFFOLGENDEN ZEILE 
NICHT GEFUNDEN UND PROGRAMMTEXTENDE: CY=0, Z=1 

BC, HL= PROGRAMMTEXTENDE-2 


1B2C 2A A4 40 

LD 

HL, (40 A4) 

PROGRAMMTEXTANFANG NACH HL 

1B2F 44 

LD 

B,H 

ZEILENADRESSE NACH BC 

1B30 4D 

LD 

C,L 


1B31 7E 

LD 

A,(HL) 

PROGRAMMTEXTENDE? 

1B32 23 

INC 

HL 

(ZEILENZEIGER = 0000?) 

1B33 B6 

OR 

(HL) 


1B34 2B 

DEC 

HL 


1B35 C8 

RET 

z 

JA, FERTIG 

1B36 23 

INC 

HL 

ZEIGER AUF ZNR 

1B37 23 

INC 

HL 


1B38 7E 

LD 

A,(HL) 

ZNR NACH HL 

1B39 23 

INC 

HL 


1B3A 66 

LD 

H,(HL) 

(MSB) 

ib3b 6F 

LD 

L,A 


1B3C DF 

RST 

18 

= GESUCHTE ZNR? 

1B3D 60 

LD 

H,B 

ZEILENADRESSE NACH HL 

1B3E 69 

LD 

L,C 


1B3F 7E 

LD 

A,(HL) 

ZEILENZEIGER LADEN 

1B40 23 

INC 

HL 


1B41 66 

LD 

H,(HL) 

(MSB) 

1B42 6F 

LD 

L,A 


1B43 3F 

CCF 


CY KOMPLEMENTIEREN 

1B44 C8 

RET 

Z 

JA 

1B45 3F 

CCF 


CY WIEDER ZURUECK 

1B46 DO 

RET 

NC 

ZNR > GESUCHTE ZNR? —> FERTIG 

1B47 18 E6 

JR 

1B2F 

WEITER 


** NEW-BEFEHL 



ALLES 

LOESCHEN (DIE STRINGSPACEDEFINITION BLEIBT ERHALTEN) 

1B49 CO 

RET 

NZ 

WEITERE ZEICHEN? —> SN-ERROR 

1B4Ä CD C9 01 

CALL 

01C9 

BILDSCHIRM LOESCHEN 

1B4D 2A A4 40 

LD 

HL,(40A4) 

PROGRAMMTEXTANFANG NACH HL 

1B50 CD F8 ID 

CALL 

1DF8 

TROFF 

1B53 32 El 40 

LD 

(40E1),A 

AUTO LOESCHEN 

1B56 77 

LD 

(hl),a 

0000-ZEILENZEIGER AUF PROGRAMMTEXTANFANG 

1B57 23 

INC 

HL 

(PROGRAMM LOESCHEN) 

1B58 77 

LD 

(hl),a 


1B59 23 

INC 

HI 


1B5A 22 F9 40 

LD 

(40F9),HL 

PROGRAMMTEXTENDE HINTER OOOO-ZEILENZEIGER 

1B5D 2A A4 40 

LD 

HL,(40A4) 

PROGRAMMTEXTANFANG NACH HL 

1B60 2B 

DEC 

HL- 

-1 

1B61 22 DF 40 

LD 

(40DF),HL 

ALS POINTER ZUR PROGRAMMFORTFUEHRUNG 

1B64 06 1A 

LD 

B, 1A 

TYPCODETABELLE = SINGLE: ZAEELER = 26D 

1B66 21 01 41 

LD 

HL,4101 

TABEILENANFANG =4101 

1B69 % 04 

LD 

(HL),04 

TYPCODE FUER SINGLE EINSCHREIBEN 

1B6B 23 

INC 

HL 

NAECHSTES BYTE 

1B6C 10 FB 

DJNZ 

1B69 

WEITER 

1B6E AF 

XOR 

A 

TRAPFLAG LOESCHEN 

1B6F 32 F2 40 

LD 

(40F2),A 


1B72 6F 

LD 

L,A 

HL = OOOU 

1B73 67 

LD 

H,A , 


1B74 22 FO 40 

LD 

(40F0),HL 

TRAPPOINTER LOESCHEN 

1B77 22 F7 40 

LD 

(40F7),HL 

CONTPOINTER LOESCHEN 
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1B7D 22 D6 40 
1B80 CD 91 ID 
1B83 2A F9 40 
1B86 22 PB 40 
1B89 22 FD 40 


COLOUR- 

—ED- 

LD 

CALL 

LD 

LD 

LD 


-GENIE Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 
- tht-^xibtT“—-“- 


STHINGSPAUIT LÜESCHENV HABENDE 
ALS STRINGSPACEZEIGER ABSPEICHERN 
RESTORE 

PROGRAMMTEXTENDE LADEN 
ALS VARTABENDE 

UND ARRAYTABENDE ABSPEICHERN 


(46d6)7hl 

1D91 

HL.(40F9) 
(40FB),HL 


1B8C 

CD 

EB 

41 

CALL 

4ibb 


1B8F 

CI 



POP 

BC 

;RUECKSPRUNGADRESSE NACH BC 

1B90 

2A 

AO 

40 

LD 

HL,(40AG ) 

;STRINGSPACEANFANG - 2 

1B93 

2B 



DEC 

HL 


1B94 

2B 



DEC 

HL 


1B95 

22 

E8 

40 

LD 

l 40E8),HL 

;ALS STACKANFANG ABSPEICHERN 

1B98 

23 



INC 

HL 

;-+ 2 

1B99 

23 



INC 

HL 


1B9A 

F9 



LD 

SP,HL 

;IN STACKPOINTER 

1B9B 

21 

B5 

40 

LD 

HL.40B5 

;ZWISCHENSPEICHER FUER STRINGS LOESCHEN 

1B9E 

22 

B3 

40 

LD 

(40B3),HL 


1BA1 

CD 

8B 

03 

CALL 

038B 

;AUSGABE-PLAG AUF DISPLAY. CR AUF PRINTER 

1BA4 

CD 

69 

21 

CALL 

2169 

;AUSGABE-FLAG AUF DISPLAY 

1BA7 

AP 



XOR 

A 

;A = 0 

1BA8 

67 



LD 

H,A 

;HL = 0 

1BA9 

6F 



LD 

L,A 


1BAA 

32 

DC 

40 

LD 

(40DC),A 

;ARRAYSPERRUNG AUFHEBEN 

1BAD 

E5 



PUSH 

HL 

;0 UEBER STACK, ALS ENDMARKIERUNG 

1BAE 

C5 



PUSH 

BC 

;RUECKSPRUNGADRESSE WIEDER RETTEN 

1BAP 

2A 

DP 

40 

LD 

HL,(40DP) 

;POINTER FUER PROGRAMMFORIFUEHRUNG LADEN 

1BB2 

C9 



RET 






UP 

INLJNA 

(AP,DE-401D,HL) 


< 



GIBT '? 

AUS UND 

ERWACHTET EINGABE EINER ZEILE 





I:SIEHE 

INLINE 






0:SIEHE 

INLINE 


1BB3 

3E 

3P 


LD 

A,3F 

AUSGEBEN 

1BB5 

CD 

2A 

03 

CALL 

032A 


1BB8 

3E 

20 


LD 

A,20 

' AUSGEBEN 

1BBA 

CD 

2A 

03 

CALL 

032A 


1BBD 

C3 

61 

03 

JP 

0361 

;SPRUNG NACH INLINE 


UP ENCTXT (AF,BC,DE,HL) 

ERZEUGT ZWISCHENCODE 

I:HL=ZEIGER AUF TEXTANPANG (TEXT MIT 0 ABGESCHLOSSEN 
0:BC=LAENGE DES ZWISCHENCODES + 5 

HL=ZEI.GER AUF BYTE VOR ZWISCHENCCDE = I/O-BUFFERANFANG - 3 


1BCC 

AF 



XOR 

A 

DATAFLAG LOESCHEN 

1BC1 

32 

BC 

40 

LD 

(40B0),A 


1BC4 

4P 



LD 

C,A 

ZEICHENZAEHLER = 0 

1BC5 

EB 



EX 

DE, HL 

I/O-BUFFERANFANG - 2 NACH DE 

1BC6 

2A 

A7 

40 

LD 

HL,(40A7) 


1BC9 

2B 



DEC 

HL 


1BCA 

2B 



DEC 

HL 


1BCB 

EE 



EX 

DE.HL 


1 BCC 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 

1BCD 

FE 

20 


CP 

2Ö 

- ' '? 

1BCF 

CA 

5B 

IC 

JP 

Z,1C5B 

JA 

1BD2 

47 



LD 

B, A 

ZEICHEN ALS TRENNZEICHEN NACH B 

1BB3 

FE 

22 


CP 

22 

_ ' 11 '? 

1BD5 

CA 

77 

IC 

JP 

Z, 1C77 

JA, STRING UEBERTRAGEN 

1BD8 

B7 



OR 

A 

ZEILENENDE? 

1BD9 

CA 

7D 

IC 

JP 

Z,1C7D 

JA, ZURUECK 

1BDC 

3A 

BO 

40 

LD 

A,(40B0) 

DATAFLAG GESETZT? 

1BDF 

B7 



OR 

A 


1 BEO 

7E 



LD 

A, (HL) 

ZEICHEN LADEN 

1 BEI 

C2 

5B 

IC 

JP 

NZ, 1C5B 

JA, KEINE ZWISCHENCODE ERZEUGEN 

1BE4 

FE 

3F 


CP 

3F 

= * 9 '? 

1BE6 

3E 

B2 


LD 

A ,B2 

PRINT-TOKEN NACH A 

1BE8 

CA 

5B 

IC 

JP 

Z,1C5B 

JA, ABSPEICHERN 

1BEB 

7E 



LD 

A. HL) 

ZEICHEN LADEN 

1BEC 

FE 

30 


CP 

3Ö 

< '0'? 

1BEE 

38 

05 


JR 

C, 1BF5 

JA, ZWISCHENCODE ERZEUGEN 

1BFC 

FE 

3C 


CP 

3C 

< V? 

1BF2 

DA 

5B 

IC 

JP 

C,1C5B 

JA, DIREKT ABSPEICHERN 





KEYWORDS ERKENNEN 


1BF5 

D5 



PUSH 

DE 

ZWISCHENCODE-ZEIGER RETTEN 

IBF6 

11 

4P 

16 

LD 

DE,164F 

KEYWORDTABELLENANFANG NACH DE 

1BF9 

C5 



PUSH 

BC 

ZEICHENZAEHLER RETTEN 

1 BFA 

01 

3D 

IC 

LD 

BC,1C3D 

RUECKSPRUNGADRESSE SETZEN 

1BFD 

C5 



PUSH 

BC 


1BFE 

06 

7F 


LD 

B,7F x 

TOKEN = 7F 

1C00 

7E 



LD 

A, (HL) 

ZEICHEN LADEN 

1C01 

FE 

61 


CP 

61 

KLEINBUCHSTABE? 

1C03 

38 

07 


JR 

c, 1 coc 

NEIN 

1C05 

FE 

7P 


CP 

7B 


1C07 

30 

03 


JR 

NC,1COC 

NEIN 

1C09 

E6 

5F 


AND 

5F 

IN GROSSBUCHSTABEN UMWANDELN 

1COB 

77 



LD 

(hl),a 

ZEICHEN ABSPEICHERN 

1C0C 

4E 



LD 

C, (EL) 

1.ZEICHEN LADEN 

1C0D 

EB 



EX 

DE, HL 

KEYWORDZEIGER NACH HL 

1COE 

23 



INC 

HL 

NAECHSTES KEYWORD SUCHEN 

1COF 

B6 



OR 

(HL) 

1.EUCHSTABE EINES KEYWORDS? 

1 CI 0 

F2 

OE 

IC 

JP 

P, 1 COE 

NEIN, WEITER 

1 ci 3 

04 



INC 

E 

TOKEN + 1 

1 CI 4 

7E 



LD 

A, (HL) 

1. BUCHSTABEN DES KEYWORDS LADEN 

1 CI 5 

CD 

E2 

38 

CALL 

38E2 

WEITER —> 

1 CI 8 

B9 



CP 

C 

= ZEICHEN AUS BUFFER 

1 CI 9 

20 

F3 


JR 

NZ,1COE 

NEIN, NAECHSTES KEYWORD 

1 Gl B 

EB 



EX 

DE, HL 

ZEIGER VERTAUSCHEN 

1 CI C 

E5 



PUSH 

HL 

BUFFERZEIGER RETTEN 

1 CI D 

13 



INC 

DE 

KEYWORDZEIGER INC. 


Seite 52 










ROM-Listing für 

COLOUR- 

GENIE Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 

lOlii 1A 

1 CI F B7 


LD 

OR 

ATTO 

A 

BUCHSTABEN DES KEiWUHD LADEN 
= ANFANG DES NAECHSTEN KEYWORDS? 

1C20 FA 39 

IC 

JP 

M, 1C39 

JA, KEYWORD ERKANNT, TOKEN ABSPEICHERN 

1C23 4F 


LD 

C,A 

NACH C 

1C24 78 


LD 

A,B 

TOKEN = GOTO - TOKEN? 

1C25 FE 8D 


CP 

8D 


1C27 2C 02 


JR 

NZ.1C2B 

NEIN, WEITER 

1C29 D7 


RST 

10 

JA, LEERZEICHEN IN KEYWORD ERLAUBT 

1C2A 2B 


DEC 

HL 

BUFFERZEIGER VOR NAECHSTES ZEICHEN 

1C2B 23 


INC 

HL 

BUFFERZEIGER AUF NAECHSTES ZEICHEN 

1C2C 7E 


LD 

A,(HL) 

LADEN 

1C2D FE 61 


CP 

61 

KLEINBUCHSTABE? 

1C2F 38 02 


JR 

C,1C33 

NEIN 

1C31 E6 5F 


AND 

5F 

IN GROSSBUCHSTABEN UMWANDELN 

1C33 B9 


CP 

C 

= BUCHSTABE AUS KEYWORD? 

1C34 28 E7 


JR 

Z,1C1D 

JA, WEITER 

1C36 El 


POP 

HL 

NEIN, BUFFERZEIGER ZURUECK 

1C37 18 D3 


JR 

1C0C 

WEITER 

1C39 48 


LD 

C,B 

TOKEN NACH C 

1C3A Fl 


POP 

AF 

ZEIGER AUF ANFANG DES KEYWORDS ENTFERNEN 

1C3B EB 


EX 

DE ,HL 

ZEIGER WIEDER VERTAUSHEN 

1C3C C9 


RET 





TOKEN 

ODER TEXT ABSPEICHERN 

1C3D EB 


EX 

DE, HL 

ZEIGER VERTAUSCHEN 

1C3E 79 


LD 

A,C 

TOKEN NACH A 

1C3F CI 


POP 

BC 

ZEICHENZAEHLER ZURUECK 

1C40 Dl 


POP 

DE 

ZWISCHENCODEZEIGER ZURUECK 

1C41 EB 


EX 

DE, HL 

ZEIGER VERTAUSCHEN 

1C42 FE 95 


CP 

95 x 

TOKEN = ELSE-TOKEN? 

1C44 36 3A 


LD 

(HL),3A 

IN ZWISCHENCODE 

1C46 20 02 


JR 

NZ.1C4A 

NEIN 

1C48 OC 


INC 

C 

JA, EINFUEGEN: ZEICHENZAEHLER INC. 

1C49 23 


INC 

HL 

ZWISCHENCODEZEIGER INC. 

1C4A FE FB 


CP 

FB 

'"-TOKEN? 

1C4C 20 OC 


JR 

NZ.1C5A 

NEIN 

1C4E 36 3A 


LD 

(HL),3A 

:REM EINFUEGEN: IN ZWISCHENCODE 

1C50 23 


INC 

HL 

ZWISCHENCODEZEIGER INC. 

1C51 06 93 


LD 

B,93 

REM-TOKEN NACH B 

1C53 70 


LD 

(HL),B 

UND IN ZWISCHENCODE 

1C54 23 


INC 

HL 

ZWISCHENCODEZEIGER INC. 

1C55 EB 


EX 

DE, HL 

ZEIGER VERTAUSCHEN 

1C56 OC 


INC 

C 

ZEICHENZAEHLER + 2 

1C57 OC 


INC 

C 


1C58 18 ID 


JR 

1C77 

RESTLICHEN PROGRAMMTEXT UNVERAENDERT UEBERTRAGEN 

1C5A EB 


EX 

DE, HL 

ZEIGER VERTAUSCHEN 

1C5B 23 


INC 

HL 

BUFFERZEIGER INC. 

1C5C 12 


LD 

(de),a 

TOKEN ODER ZEICHEN ABSPEICHERN 

1C5D 13 


INC 

DE 

ZWISCHENCODEZEIGER INC. 

1C5E OC 


INC 

C 

ZEICHENZAEHLER INC. 

1C5F D6 3A 


SUB 

3A 

': '? 

1C61 28 04 


JR 

Z,1C67 

JA, DATA-FLAG LOESCHEN 

1C63 FE 4E 


CP 

4E 

DATA-TOKEN - 3A? 

1C65 20 03 


JR 

NZ.1C6A 

NEIN 

1C67 32 BO 

40 

LD 

(4ÖB0),A 

JA, DATAFLAG SETZEN 

1C6A D6 59 


SUB 

59 

REM-TOKEN - 3A? 

1C6C C2 CC 

1B 

JP 

NZ,1BCC 

NEIN 

1C6F 47 


LD 

B,A 

TRENNZEICHEN = ZEILENENDE 

1C70 7E 

T,A M 


LD 

A,(HL) 

TEXT BIS ZEILENENDE ODER TRENNZEICHEN UNVERAENDERT IN ZWISCHENCODE: ZEICHEN 

1C71 B7 


OR 

A 

= ZEILENENDE? 

1C72 28 09 


JR 

Z,1C7D 

JA, FERTIG 

1C74 B8 


CP 

B 

= TRENNZEICHEN? (NACH REM 0, NACH '"') 

1C75 28 E4 


JR 

Z,1C5B 

JA, WEITER 

1C77 23 


INC 

HL 

BUFFERZEIGR INC. 

1C78 12 


LD 

(de),a 

ZEICHEN IN ZWISCHENCODE ABSPEICHERN 

1C79 OC 


INC 

c 

ZEICHENZAEHLER + 1 

1C7A 13 


INC 

DE 

ZWISCHENCODEZEIGER + 1 

1C7B 18 F3 


JR 

1C70 

WEITER 

1C7D 21 05 

00 

LD 

HL,0005 

ZEICHENZAEHLER + 5 NACH BC 

1C80 44 


LD 

B,H 


1C81 09 


ADD 

HL,BC 


1C82 44 


LD 

B,H 


1C83 4D 


LD 

C,L 


1C84 2A A7 

40 

LD 

HL,(40A7) 

I/O-BUFFERANFANG NACH HL 

1C87 2B 


DEC 

HL 

- 3 ERGIBT ZEIGER AUF BYTE 

1C88 2B 


DEC 

HL 

VOR ZWISCHENCODEANFANG 

1C89 2B 


DEC 

HL 


1C8A 12 


LD 

(DE),A 

ZWISCHENCODEENDE MIT 3 NULLEN MARKIEREN 

1C8B 13 


INC 

DE 

(DAMIT BEI DIREKTER PRQGRAMMAUSFUEHRUNG 

1C8C 12 


LD 

(de),a 

AM ENDE DER ZEILE GESTOPPT WIRD 

1 CSD 13 


INC 

DE 


1C8E 12 


LD 

(DE),A 


1C8F C9 


RET 




UP CPH1DE (AE) 

RST 18-UP: VERGLEICHT HL UNT DE 
I:HL, DE:16 BIT INTEGER OHNE SIGN 

0:HL > DE: Z=0, CY=0 

HL = DE: Z=1, CY=0, A=0 

HL < DE: Z=0, CY=1 

1C90 7C LD A,H ;MSB HL = MSB DE? 

1 cgi 92 SUB D 

1C92 CO RET NZ ;NEIN, ZURUECK, WEITERER VERGLEICH UEBERFLUESSIG 

1C93 7D LD A,L ;LSB HL = LSB DE? 

1C94 93 SUB E 

1C95 C9 RET 


UP CHECK (AF,HL=P) 
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-KST U8-UP: STmXTHECIT" - 

I :HL=POINTER 


BYTE NACH RST 08H 

0:(HL)=BYTE NACH RST 08H: HL AUE NAECHSTEM ZEICHEN, SONST SN-ERROR 


1C96 7E 


LD 

A,(HL) ; 

ZEICHEN AUF POINTERPOSITION LADEN 

1C97 E3 


EX 

(SPi.HL ; 

POINTER MIT RUECKSPRUNGADRESSE VERTAUSCHEN 

1C98 BE 


CP 

(HL) ; 

= DEM AUFRUF FOLGENDES BYTE? 

1C99 23 


INC 

HL ; 

RUECKSPRUNGADRESSE + 1 

1C9A E3 


EX 

(SP),HL ; 

UND WIEDER MIT POINTER VERTAUSCHEN 

1C9B CÄ 78 

ID 

JP 

Z.1D78 ; 

JA, RST 10, NAECHSTES ZEICHEN SUCHEN 

1C9E C3 97 

19 

JP 

1997 5 

NEIN, SN-ERROR 


*■* 

FOR-ANWEISUNG 




WIEDERHOLUNGSANWEISUNG 

1CA1 3E 64 


LD 

A, 64 ; 

ARRAYS SPERREN 

1CA3 32 DC 

40 

LD 

(40DC),A 


1CA6 CD 21 

1F 

CALL 

1F21 

ANFANGSZUWEISUNG AN LAUFVARIABLE 

1CA9 E3 


EX 

(SP),HL 

POINTER RETTEN, RUECKSPRUNGADRESSE ENTFERNEN 

1CAA CD 36 

19 

CALL 

1936 

SCHLEIFE MIT GLEICHER LAUFVARIABLE AUF STACK? 

1 CAD Dl 


POP 

DE 

POINTER NACH DE ZURUECK 

1CAE 20 05 


JR 

NZ,1CB5 

NEIN 

1CBO 09 


ADD 

HL,BC 

JA, DURCH STACKKORREKTUR ALLE SCHLEIFEN BIS DORT LOESCHEN 

1CB1 F9 


LD 

SP. HL 

STACKPOINTER NEU SETZEN 

1CB2 22 E8 

40 

LD 

(4ÖE8),HL 

UND NEUEN ANFANGSWERT ABSPEICHERN 

1CB5 EB 


EX 

DE.HL 

POINTER NACH HL 

1CB6 OE 08 


LD 

C,08 

16 BYTE FREI? 

1CB8 CD 63 

19 

CALL 

1963 

NEIN, OM-ERROR 

1CBB E5 


PUSH 

HL 

POINTER RETTEN 

1CBC CD 05 

1F 

CALL 

1F05 

NAECHSTE ANWEISUNG (ANFANG DES ANWEISUNGSTEILS) SUCHEN 

1CBE E3 


EX 

(SP),HL 

POINTER DARAUF AUF STACK, POINTER ZURUECK 

1CC0 E5 


PUSH 

HL 

POINTER RETTEN 

1CC1 2k A2 

40 

LD 

HL,(40A2) 

ZNR LADEN 

1CC4 E3 


EX 

(SP),HL 

AUF STACK UND POINTER ZURUECK 

1CC5 CF 


RST 

08 

SYNTAXCHECK: POINTER AUF TO-TOKEN? 

1CC6 BD 




= 

1CC7 E7 


RST 

20 

LAUFVARIABLENTYP TESTEN 

1CC8 CA F6 

OA 

JP 

Z,0AF6 

STRING? —> TM-ERROR 

1CCB D2 F6 

OA 

JP 

NC,0AF6 

DOUBLE? —> TM-ERROR 

1CCE F5 


PUSH 

AF 

TYPFLAG RETTEN (=FF BIE INTEGER UND 01 BEI SINGLE) 

1CCF CD 37 

23 

CALL 

2337 

ENDWERTAUSDRUCK BERECHNEN 

1CD2 Fl 


POP 

AF 

TYP-FLAG ZURUECK, SINGLE? 

1CD3 E5 


PUSH 

HL 

POINTER RETTEN 

1CD4 F2 EC 

IC 

JP 

P, 1 CEC 

JA 

1CD7 CD 7F OA 

CALL 

0A7F 

INTEGER: ENDWERT IN INTEGER UMWANDELN 

1 CDA E3 


EX 

(SP),HL 

POINTER ZURUECK, ENDWERT AUF STACK 

1CDB 11 01 

00 

LD 

DE,0001 

INCREMENT = 1 

1CDE 7E 


LD 

A, (HL) 

NAECHSTES ZEICHEN 

1CDF FE CC 


CP 

CC 

= STEP-TOKEN? 

1CE1 CC 01 

2B 

CALL 

Z,2B01 

JA, INCREMENTAUSDRUCK AUSWERTEN UND IN INTEGER UMWANDELN (NACH 

1CE4 D5 


PUSH 

DE 

INCREMENT AUF STACK 

1CE5 E5 


PUSH 

HL 

POINTER RETTEN 

1CE6 EB 


EX 

DE, HL 

INCREMENT NACH HL 

1CE7 CD 9E 09 

CALL 

099E 

INCREMENT TESTEN 

1CEA 18 22 


JR 

1D0E 

WEITER 

1 CEC CD Bl 

OA 

CALL 

0AB1 

ENDWERT IN SINGLE UMWANDELN 

1 CEF CD BF 09 

CALL 

09BF 

NACH Y 

1CF2 El 


POP 

HL 

POINTER ZURUECK 

1CF3 C5 


PUSH 

BC 

ENDWERT RETTEN 

1CF4 D5 


PUSH 

DE 


1CF5 01 00 

81 

LD 

BC,8100 

INCREMENT (Y) = 1 

1CF8 51 


LD 

D,C 


1CF9 5A 


LD 

E,D 


1CFÄ 7E 


LD 

A,(HL) 

NAECHSTES ZEICHEN 

1CFB FE CC 


CP 

CC 

= STEP-TOKEN? 

1CFD 3E 01 


LD 

A,01 

FLAG EUER FUER POSITIVES INCREMENT SETZEN 

1CFF 20 OE 


JR 

NZ,1DOF 

NEIN 

1 D01 CD 38 

23 

CALL 

2338 

INCREMENTAUSDRUCK AUSWERTEN 

1D04 E5 


PUSH 

HL 

POINTER RETTEN 

1D05 CD Bl 

OA 

CALL 

0AB1 

IN SINGLE UMWANDELN 

1D08 CD BF 

09 

CALL 

09BF 

UND NACH Y 

1D0B CD 55 

09 

CALL 

0955 

INCREMENT TESTEN (A=1, WENN POSITIV UND A=FF, WENN NEGATIV) 

1D0E El 


POP 

HL 

POINTER ZURUECK 

1DOF C5 


PUSH 

BC 

INCREMENT AUF STACK 

1 Dl 0 D5 


PUSH 

DE 


1 Dl 1 4F 


LD 

C,A 

INC-FLAG NACH C 

1D12 E7 


RST 

20 

TYP INC (=TYP LAUFVARIABLE) TESTEN 

1D13 47 


LD 

B,A 

TYPFLAG (01, BEI SINGLE UND FF BEI INTEGER) NACH B 

1D14 C5 


PUSH 

BC 

TYPFLAG UND INC-FLAG AUF STACK 

1D15 E5 


PUSH 

HL 

POINTER RETTEN 

1D16 2A DF 

40 

LD 

HL,(40DF) 

LAUFVARIABLENADRESSE NACH HL 

1D19 E3 


EX 

(SP),HL 

POINTER ZURUECK, LAUFVARIABLENADRESSE AUF STACK 

1D1A 06 81 


LD 

B,81 

81 (=FOR-TOKEN) NACH B 

1 DlC C5 


PUSH 

BC 

ALS MARKIERUNG AUF STACK 

1 Dl D 33 


INC 

SP 

LSB ENTFERNEN 



PROGRAMMAUSFUEHRUNG 




HL MUSS 

AUF : ODER 

ZEILENENDE ZEIGEN 

1 Dl E CD 58 

03 

CALL 

0358 

; TASTA nn TRABFRAGE 

1D21 B7 


OR 

A 

;NEUE TASTE GEDRUECKT? 

1D22 C4 AO 

ID 

CALL 

NZ,1DAO 

;JA, ANALYSIEREN 

1D25 22 E6 

40 

LD 

(40E6),HL 

; AKTUELLEN POINTER ABSPEICHERN 

1D28 ED 73 

E8 40 

LD 

(40E8).SP 

; STACKPOINTER ABSPEICHERN 

1D2C 7E 


LD 

A, (HL) 

;ZEICHEN LADEN 

1D2D FE 3A 


CP 

3A 

;':'? (MULTISTATEMENTZEILE) 

1D2F 28 29 


JR 

Z,1D5A 

; JA 

1D31 B7 


OR 

A 

;ZEILENENDE? 

1D32 C2 97 

19 

JP 

NZ,1997 

;NEIN, SN-ERROR 

1D35 23 


INC 

HL 

;PROGRAMMENDE? 

1D36 7E 


LD 

A,(HL) 

;(ZEILENZEIGER = 0000) 
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TD3T~Z3 INC -HE-- - - ö - 

1D38 B6 OR (HL) 

1D39 CA 7E 19 JP Z.197E ;JA, IMPLIZITES END 

1D3C 23 INC HL ;POINTER AUE ZEILENNUMMER 

1D3D 5E LD E,(HL) ;ZNR LADEN 

1D3E 23 INC HL 

1D3F 56 LD D,(HL) ;(MSB) 

1D40 EB EX DE,HL ;ZNR NACH HL, POINTER NACH DE 

1D41 22 A2 40 LD (40A2),HL ;ZNR ALS AKTUELLE-ZNR ABSPEICHERN 

1D44 3A 1B 41 LD A,(411E) ;TRACE? 

1D47 B7 OR A 

1D48 28 OP JR Z,1D59 ;NEIN 

1D4A D5 PUSH DE ;POINTER RETTEN 

1D4B 3E 3C LD A,3C AUSGEBEN 

1D4D CD 2A 03 CALL 032A 

1D50 CD AP OP CALL OPAP ;ZNR AUSGEBEN 

1D53 3E 3E LD A,3E AUSGEBEN 

1D55 CD 2A 03 CALL 032A 

1D58 Dl POP DE ;POINTER ZURUECK 

1D59 EB EX DE,HL ;POINTER WIEDER NACH HL 

1D5A D7 RST 10 ;NAECHSTES ZEICHEN, ANWEISUNGSENDE? 

1D5B 11 IE ID LD DE,1 DIE ;RUECKSPRUNGADRESSE SETZEN 

1D5E D5 PUSH DE 


1D5F C8 RET Z 


JA 


1D60 D6 80 SUB 80 


TOKEN? 


1D62 DA 

21 

1F 

JP 

C,1F21 

1D65 FE 

3C 


CP 

3C 

1D67 C3 

CO 

39 

JP 

39C0 

1D6A 07 



RLCA 


1D6B 4F 



LD 

C,A 

1D6C 06 

00 


LD 

B,00 

1D6E EB 



EX 

DE,HL 

1D6F 21 

22 

18 

LD 

HL,1822 

1D72 09 



ADD 

HL.BC 

1D73 4E 



LD 

C,(HL) 

1D74 23 



INC 

HL 

1D75 46 



LD 

B,(HL) 

1D76 C5 



PUSH 

BC 


NEIN, ZUWEISUNG OHNE AUSDRUECKLICHES LET 
ANWEISUNGSTOKEN? 

WEITER —> 

TOKEN * 2 NACH BC 


;POINTER NACH DE 
;SPRUNGTABELLENANFANG NACH HL 
;+ 2 * TOKEN ERGIBT ZEIGER AUF SPRUNGADRESSE 
;SPRUNGADRESSE LADEN 

; (MSB) 

;UND RETTEN 


1D77 EB 


EX DE,HL 


POINTER ZURUECK NACH HL 


UP CHRGET (AF,HL=P) 

RST 10-UP: SUCHT NAECHSTES SIGNIFIKANTES ZEICHEN UND GIBT INFORMATIONEN UEBER ES 

0:A=ZEICHEN 
ZIFFER: CY=1 

ODER 00: Z=1 


1D78 23 


INC 

HL 

POINTER INC. 

1D79 7E 


LD 

A,(HL) 

ZEICHEN LADEN 

1D7A FE 3A 


CP 

3A 

<= ':'? 

1D7C DO 


RET 

NC 

JA 

1D7D FE 20 


CP 

20 

' '? 

1D7F CA 78 

ID 

JP 

Z, 1D78 

JA,’NAECHSTES ZEICHEN 

1D82 FE OB 


CP 

OB 

< OB? 

1D84 30 05 


JR 

NC,1D8B 

NEIN 

1D86 FE 09 


CP 

09 

> 09? 

1D88 D2 78 

ID 

JP 

NC,1D78 

JA, BEI OA (LF) AUCH WEITER SUCHEN 

1D8B FE 30 


CP 

30 

< '0'? 

1D8D 3F 


CCF 


NEIN, CY = 1 

1D8E 3C 


INC 

A 

ZEILENENDE? 

1D8F 3D 


DEC 

A 

JA, Z=1 

1D90 C9 


RET 




** RESTORE-ANWEISUNG 

DATAZEIGER ZURUECKSETZEN 


1D91 EB 

EX 

DE,HL 

;POINTER NACH DE 

1D92 2A A4 40 

LD 

HL, (40A4) 

;PROGRAMMTEXTANFANG NACH HL 

1D95 2B 

DEC 

HL 

1 

1D96 22 FF 40 

LD 

(40FF),HL 

;ALS DATAZEIGER ABSPEICHERN 

1D99 EB 

EX 

DE ,HL 

;POINTER ZURUECK 

1D9A C9 

RET 




TASTENDRUECKE WAEHREND PROGRAMMAUSFUEHRUNG ODER LIST ANALYSIEREN 
ANSPRUNG LIST 


1D9B CD 

58 03 

CALL 

0358 

TASTATURABFRAGE 

1D9E B7 



OR 

A 

•NEUE TASTE GEDRUECKT? 

1D9F C8 



RET 

Z 

NEIN, FERTIG 


60 


ANSPRUNG PROGRAMMAUSFUEHRUNG 

1DA0 FE 


CP 

60 

SHIFT KLAMMERAFFE? 

1DA2 CC 

84 

03 

CALL 

Z,0384 
(4099),A 

JA, NAECKSTEN TASTENDRUCK ABWARTEN 

1DA5 32 

99 

40 

LD 

ZEICHEN IN INKEY$-ZWISCHENSPEICHER ABSPEICHERN 

1DA8 3D 



DEC 

A 

BREAK? 

1DA9 CO 



RET 

NZ 

NEIN, FERTIG 




PROGRAMMUNTERBRECHUNG 

DURCH BREAK 

1DAA 3C 

B4 

ID 

INC 

A 

FLAG A = 1 (UNTERBRECHUNG DURCH BREAK) 

1DAB C3 

JP 

1DB4 

WEITER IN END 



** 

END-ANWEISUNG 





BEENDIGUNG DER PROGRAMMAUSFUEHRUNG 

1DAE CO 



RET 

NZ 

WEITERE ZEICHEN? —> ZURUECK, FEHLER 

1DAF F5 



PUSH 

AF 

FLAG A=0 (END) RETTEN 

1DB0 CC 

BB 

41 

CALL 

Z,41BB 

1DB3 Fl 



POP 

AF 

UND WIEDER ZURUECK 

1DB4 22 

E6 

40 

LD 

(40E6),HL 

AKTUELLEN POINTER ABSPEICHERN 

1DB7 21 

B5 

40 

LD 

HL.40B5 

STRINGZWISCHENSPEICHER LOF,SOTTEN 

1DBA 22 B3 

40 

LD 

(40B3),HL 


1DBD 21 

F6 

FF 

LD 

HL,FFF6 
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-ANSEHUNG BEI EKEM 


Copyri^li t (C) 


(1DBE 

F6 

FF 


OR 

FF ; 

1DC0 

CI 




POP 

BC ; 

1DC1 

2A 

A2 

40 


LD 

HL,(40A2) ; 

1DC4 

E5 




PUSH 

HL ; 

1DC5 

FR 




PUSH 

AF ; 

1DC6 

7D 




LD 

A,L ; 

1DC7 

A4 




AND 

H ; 

1DC8 

3C 




INC 

A 

1DC9 

28 

09 



JR 

Z, 1DD4 ; 

1DCB 

22 

F5 

40 


LD 

(40F5),HL ; 

1DCE 

2A 

Efe 

40 


LD 

HL,(40E6) ; 

1DD1 

22 

F7 

40 


LD 

(40F7),HL 

1DD4 

CD 

8B 

03 


CALL 

038B ; 

1DD7 

CD 

F9 

20 


CALL 

20F9 ; 

1DDA 

Fl 




POP 

AF ; 

1DDB 

21 

30 

19 


LD 

HL,1930 ; 

1 DDE 

C2 

06 

1A 


JP 

NZ,1A06 ; 

1DE1 

C3 

18 

1A 


JP 

1 AI 8 ; 





-** 

CONT- 

ANWEISUNG 






WIEDERAUFNAHME DER PRC 

1DE4 

2A 

F7 

40 


LD 

HL,(40F7) 

1DE7 

7C 




LD 

A,H 

1DE8 

B6 




OR 

L 

1DE9 

IE 

20 



LD 

E,20 

1DEB 

CA 

A2 

19 


JP 

Z, 19A2 

IDEE 

EB 




EX 

DE, HL 

1DEF 

2A 

F5 

40 


LD 

HL,(40F5) 

1DF2 

CD 

AO 

38 


CALL 

38A0 

1DF5 

EB 




EX 

DE, HL 

1DF6 

C9 




RET 






** 

TRON- 

ANWEISUNG 






TRACE 

-FUNKTION AN 

1DF7 

3E 

AF 



LD 

A,AF ; 





** 

TROFF 

-ANWEISUNG 






TRACE 

-FUNKTION AUS 

(1DF8 

AF 



XOR 

A 

1DF9 

32 

1B 

41 


LD 

(411B),A 

1DFC 

C9 




RET 


1DFD 

Fl 




POP 

AF 

1DFE 

El 




POP 

HL 

1 DFF 

C9 




RET 


1EOO 
1E02 

IE 03 
01 IE 

02 

** 

DEFSTR-ANWEISUNG 
STRINGVARIABLEN DEFIN1 
LD E,03 

LD BC,021E 


1983: Norbert Heicke & Luidger Röckrath 

INPUT- 

PLAG A=PF (BREAK IN INPUT)) 

RUECKSPRUNGADRESSE ENTFERNEN 

AKTUELLE ZNR NACH HL 

UND RETTEN 

FLAG RETTEN 

AKTUELLE ZNR = FFFF? 

(DIREKTMODE) 

JA 

NEIN, CONT-ZNR 

UND CONTPOINTER ABSPEICHERN 

AUSGABE-FLAG AUF DISPLAY, UND CR, WENN NOETIG AUF DRUCKER 

CR AUF BILDSCHIRM, WENN NOETIG 

FLAG ZURUECK 

ZEIGER AUF TEXT 'BREAK' 

BREAK (AUCH IN INPUT) —> 'BREAK IN ' ZNR AUSGEBEN UND ZUR HAUPTSCHLEIFE 
END? —> DIREKT ZUR HAUPTSCHLEIFE 


CONT-POINTER LADEN 
= OOOO? 

(D.H. KEINE UNTERBRECHUNG ODER FORTFÜEHRUNG NICHT MOEGLICH) 

CN-ERROR-CODE NACH E 

JA, CN-ERROR 

POINTER NACH DE 

CONT-ZNR 

WEITER —> 

POINTER ZURUECK NACH HL 


; TRACEFLAG = AF 


;N. V. 


DEFINT-ANWEISUNG 
INTEGERVARIABLEN DEFINIEREN 

;TYPCODE 


(1E03 

IE 02 

LD 

E,02 

1E05 01 

IE 04 

LD 

BC.041E 


** 

DEFSNG- 

-ANWEISUNG 



SINGLEVARIABLEN 1 

(1E06 

IE 04 

LD 

E,04 

1E08 01 

IE 08 

LD 

BC,081E 


** 

DEFDBL- 

-ANWEISUNG 



DOUBLEVARIABLEN 1 

(1E09 

IE 08 

LD 

E,08 

1E0B CD 

3D IE 

CALL 

1E3D 

1EOE 01 

97 19 

LD 

BC,1997 

1 El 1 C5 


PUSH 

BC 

1 El 2 D8 


RET 

C 

1 El 3 D6 

41 

SUB 

41 

1 El 5 4F 


LD 

C, A 

1 El 6 47 


LD 

B,A 

1 El 7 D7 


RST 

10 

1E18 FE 

CE 

CP 

CE 

1 ElA 20 

09 

JR 

NZ,1E25 

1 ElC D7 


RST 

10 

1 ElD CD 

3D IE 

CALL 

1E3D 

1E20 D8 


RET 

C 

1E21 D6 

41 

SUB 

41 

1E23 47 


LD 

B,A 

1E24 D7 


RST 

10 

1E25 78 


LD 

A,B 

1E26 91 


SUB 

C 

1E27 D8 


RET 

C 

1E28 3C 


INC 

A 

1E29 E3 


EX 

(SP),HL 

1E2A 21 

01 41 

LD 

HL.4101 

1E2D 06 

00 

LD 

B,00 

1E2F 09 


ADD 

HL,BC 

1E30 73 


LD 

(HL),e 

1E31 23 


INC 

HL 

1E32 3D 


DEC 

A 

1E33 20 

FB 

JR 

NZ,1E30 

1E35 El 


POP 

HL 

1E36 7E 


LD 

A, (HL) 

1E37 PE 

2C 

CP 

2C 

1E39 CO 


RET 

NZ 

1E3Ä D7 


RST 

10 

1E3B 18 

CE 

JR 

1EOB 


INTEGER) 


;TYPCODE = SINGLE) 


TYPCODE = DOUBLE) 

POINTER AUF BUCHSTABE? 

SN-ERROR-ADRESSE RETTEN 

NEIN, SN-ERROR 

STELLUNG IM ALPHABET ERMITTELN 
NACH C UND B 

NAECHSTES ZEICHEN 
='-'-TOKEN? 

NEIN, WEITER 
NAECHSTES ZEICHEN 
BUCHSTABE? 

NEIN, SN-ERROR 
STELLUNG IM ALPHABET 
NACH B 

NAECHSTES ZEICHEN 

2.BUCHSTABE IM ALPHABET VOR 1.? 

JA, SN-ERROR 
DIFFERENZ + 1 NACH A 

POINTER RETTEN, SN-AD RESSE AUS STACK ENTFERNEN 

TYPCODETABANFANG NACH HL 

STELLUNG DES 1.BUCHSTABEN ADDIEREN 

TYPCODE IN TABELLE SCHREIBEN 
ZEIGER INC. 

FERTIG? 

NEIN, WEITER 
POINTER ZURUECK 
ZEICHEN LADEN. 

=' , '? 

nein’ FERTIG 
NAECHSTES ZEICHEN 
WEITER 
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TESTET OB ZEICHEN EIN BUCHSTABE 
I:HL=ZEIGER AUF ZU UNTERSUCHENDES ZEICHEN 
0:WENN BUCHSTABE CY=O f SONST CY=1 


1E3D 7E 

LD 

A. HL) 

;ZEICHEN LADEN 

1E3E FE 41 

CP 

4i 

;< 'A'? 

1E40 D8 

RET 

C 

;JA, FERTIG 

1E41 FE 5B 

CP 

5B 

;<= 'Z'? —> CY=1 

1E43 3F 

CCF 


;CY KOMPLEMENTIEREN 

1E44 C9 

RET 




UP 


1E45 D7 
1E46 CD 02 2B 
1E49 FO 


INTEXP (AF,BC,DE,KL=P) 

AUSDRUCK AUSWERTEN UND GANZZAHLIGEN WERT (< 32768D) ERMITTELN 

I:(HL+1)..=TEXT 

0:DE=ERGEBNIS 


RST 

CALL 

RET 


10 

2B02 

P 


NAECHSTES ZEICHEN 

AUSDRUCK AUSWERTEN, GANZZAHLIGEN WERT NACH DE, 
NEIN, FERTIG 


> 32767D? 


1E4A IE 08 
1E4C C3 A2 19 


FC-ERROR 
LD E,08 

JP 19A2 


;FC-ERROR-CODE NACH E 
;ZUR ERROR-ROUTINE 


1E4F 

7E 



1E50 

FE 

2E 


1E52 

EB 



1E53 

2A 

EC 

40 

1E56 

EB 



1E57 

CA 

78 

ID 

1E5A 

2B 



1E5B 

11 

00 

00 

1E5E 

D7 



1E5F 

DO 



1E60 

E5 



1E61 

F5 



1E62 

21 

98 

19 

1E65 

DF 



1E66 

DA 

97 

19 

1E69 

62 

1E6A 

6B 



1E6B 

19 



1E6C 

29 



1E6D 

19 



1E6E 

29 



1E6F 

Fl 



1E70 

D6 

30 


1E72 

5F 



1E73 

16 

00 


1E75 

19 



1E76 

EB 



1E77 

El 



1E78 

18 

E4 



DECLNO (AF,DE,HL=P) 

STRING IN ZAHL UMWANDELN (GANZE ZAHL < 65530D) 

I:(HL).-=STRING 

0:DE=ZAHL 


LD 

A, (HL) 

ZEICHEN LADEN 


CP 

2E 

='.'? 


EX 

DE,HL 

POINTER NACH DE 


LD 

HL,(40EC) 

'.'-ZNR NACH HL 


EX 

DE ,HL 

POINTER UND . -ZNR VERTAUSCHEN 

JP 

Z.1D78 

JA. NAECHSTES ZEICHEN UND FERTIG 

DEC 

HL 

POINTER ZURUECK 


LD 

DE,0000 

ZAHL = 0 


RST 

10 

NAECHSTES ZEICHEN, 

ZIFFER? 

RET 

NC 

NEIN, FERTIG 


PUSH 

HL 

POINTER RETTEN 


PUSH 

AF 

ZEICHEN RETTEN 


LD 

HL,1998 

ZAHL > 1998? 


RST 

18 

(D.H. ZAHL * 10D > 

65529D) 

JP 

C,1997 

JA, SN-ERROR 


LD 

H,D 

ZAHL NACH HL 


LD 

L,E 



ADD 

KL, DE 

HL = 4 * ZAHL 


ADD 

HL,HL 



ADD 

HL,DE 

HL = 5 * ZAHL 


ADD 

HL,HL 

HL = 10D * ZAHL 


POP 

AF 

ZEICHEN ZURUECK 


SUB 

30 

-'0' NACH DE 


LD 

E,A 



LD 

D,00 



ADD 

HL, DE 

AUF 10D * ZAHL ADDIEREN 

EX 

DE, HL 

ZAHL = 10D * ZAHL 

+ ZIFFER 

POP 

HL 

POINTER ZURUECK 


JR 

1E5E 

NAECHSTE ZIFFER 



** CLEAR-ANWEISUNG 

VARIABLEN LOESCHEN UND STRINGSPACE DEFINIEREN 


1E7A 

CA 

61 

1B 

JP 

Z,1B61 

KEINE WEITEREN ZEICHEN? —> SPRUNG IN NEW, VARIABLEN 

LOESCHEN 

1E7D 

CD 

46 

IE 

CALL 

1E46 

AUSDRUCK AUSWERTEN, GANZZAHLIGES ERGEBNIS (< 32768D) 

NACH DE 

1E80 

2B 



DEC 

HL 

POINTER DEC. 


1E81 

D7 



RST 

10 

NAECHSTES ZEICHEN, ANWEISUNGSENDE? 


1E82 

CO 



RET 

NZ 

NEIN, ZURUECK, FEHLER 


1E83 

E5 



PUSH 

HL 

POINTER RETTEN 


1E84 

2A 

Bl 

40 

LD 

HL,(40B1) 

RAMENDE NACH HL 


1E87 

7D 



LD 

A,L 

- ARGUMENT NACH HL 


1E88 

93 



SUB 

E 

ERGIBT NEUEN STRINGSPACEANFANG - 1 


1E89 

5F 



LD 

E,A 

UNTERLAUF? 


1E8A 

7C 



LD 

A.H 



1E8B 

9A 



SBC 

D 



1E8C 

57 



LD 

D,A 



1E8D 

DA 

7A 

19 

JP 

C,197A 

JA, OM-ERROR 


1E90 

2A 

F9 

40 

LD 

KL,(40F9) 

VARTABANFANG NACH EL 


1E93 

CI 

28 

00 

LD 

BC,0028 

+ 28 


1E96 

09 



ADD 

HL,BC 



1E97 

DF 



RST 

18 

< NEUER STRINGSPACEANFANG - 1 ? 


1E98 

D2 

7A 

19 

JP 

NC,197A 

NEIN, OM-ERROR 


1E9B 

EB 



EX 

DE. HL 

NEUEN STRINGSPACEANFANG - 1 ABSPEICHERN 


1E9C 

22 

AO 

40 

LD 

(40A0),HL 



1E9F 

El 



POP 

HL 

POINTER ZURUECK 


1EA0 

C3 

61 

1B 

JP 

1B61 

SPRUNG IN NEW 





** 

RUN-ANWEISUNG 







PROGRAMM STARTEN 



1EA3 

CA 

5D 

1B 

JP 

Z,1B5D 

KEINE WEITEREN ZEICHEN? —> SPRUNG UEBER NEW 


1EA6 

CD 

C7 

41 

CALL 

41C7 



1EA9 

CD 

61 

1B 

CALL 

1B61 

VARIABLEN LOESCHEN 


1EAC 

01 

IE 

ID 

LD 

BC.1D1E 

RUECKSPRUNGADRESSE NACH BC (DURCH NEW VOM STACK ENTFERNT) 


1EAF 

18 

10 


JR 

1EC1 

WEITER 





** 

GOSUB-ANWEISUNG 
UNTERPROGRAMMAUFRUF 



1EB1 

OE 

03 


LD 

C,03 

TESTEN, OB 6 BYTES 

FREI 

1EB3 

CD 

63 

19 

CALL 

1963 



1EB6 

CI 



POP 

EC 

RUECKSPRUNGADRESSE 

ENTFERNEN 

1EB7 

E5 



PUSH 

HL 

POINTER RETTEN FUER RETURN 

1EB8 

E5 



PUSH 

HL 

POINTER RETTEN 


1EB9 

2A 

A2 

40 

LD 

HL,(40A2) 

MIT AKTUELLER ZNR 



Seite 57 

















RPM-Listing für COLOUR-GENIE . Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 


TEBc; 

tsa 



EX 

(t>P),HL 

TERTAUSÜHEN 

1EBD 

3E 

91 


LD 

A,91 

91 ALS FLAG FUER GOSUB 

1EBP 

F5 



PUSH 

AF 

AUF STACK 

1EC0 

33 



INC 

SP 

LSB ENTFERNEN 

1EC1 

C5 



PUSH 

BC 

RUECKSPRUNGADRESSE WIEDER SETZEN 




■** 

GOTO-ANWEISUNG 
UNBEDINGTER SPRUNG 


1EC2 

CD 

5A 

IE 

CALL 

1E5A 

SPRUNG-ZNR BESTIMMEN 

1EC5 

CD 

07 

1F 

CALL 

1F07 

ENDE DER ZEILE SUCHEN 

1EC8 

E5 



PUSH 

HL 

POINTER RETTEN 

1EC9 

2A 

A2 

40 

LD 

HL,(40A2) 

AKTUELLE ZNR NACH HL 

1ECC 

DF 



RST 

18 

AKTUELLE ZNR < SPRUNG-ZNR? 

1ECD 

El 



POP 

HL 

POINTER AUF NAECHSTE ZEILE NACH HL 

1ECE 

23 



INC 

HL 


1ECP 

DC 

2F 

1B 

CALL 

C, 1B2F 

JA, SPRUNGZEILE VON NAECHSTER ZEILE AN SUCHEN 

1ED2 

D4 

2C 

1B 

CALL 

NC,1B2C 

NEIN, SPRUNGZEILE VOM PROGRAMMANFANG AN SUCHEN 

1ED5 

60 



LD 

H,B 

ADRESSE DER SPRUNGZEILE NACH HL 

1ED6 

69 



LD 

L,C 


1ED7 

2B 



DEC 

HL 

POINTER VOR SPRUNGZEILE 

1ED8 

D8 



RET 

c 

ZEILE VORHANDEN? —> WEITER 





Ulr- ERROR 


1ED9 

IE 

OE 


LD 

E,OE 

UL-ERROR-CODE NACH E 

1EDB 

C3 

A2 

19 

JP 

19A2 

ZUR ERROR-ROUTINE 




** 

RETURN- 

-ANWEISUNG 






RUECKSPRUNG VON UNTERPROGRAMM 

1EDE 

CO 



RET 

NZ 

WEITERE ZEICHEN? —> ZURUECK, FEHLER 

NAECHSTE DATEN VOM STACK (FOR-DATEN UEBERGEHEN) 

1EDP 

16 

FF 


LD 

D,FF 

1 §36 

1EE1 

CD 

36 

19 

CALL 

1EE4 

F9 



LD 

SP,HL 
(40E8),HL 

STACK NEU INITIALISIEREN 

1EE5 

22 

E8 

40 

LD 


1EE8 

FE 

91 


CP 

91 

DATEN VON GOSUB-AUFRUF? 

1EEA 

IE 

04 


LD 

E.04 

RG-ERROR-CODE NACH E 

1EEC 

C2 

A2 

19 

JP 

NZ,19A2 

NEIN, RG-ERROR 

1EEF 

El 



POP 

HL 

ZNR ZURUECK VOM STACK 

1EF0 

22 

A2 

40 

LD 

(40A2),HL 

ALS AKTUELLE ZNR ABSPEICHERN 

1EE3 

23 



INC 

HL 

=FFFF? 

1EF4 

7C 



LD 

A,H 

(DIREKTMODE) 

1EE5 

B5 



OR 

L 


1EF6 

20 

07 


JR 

NZ,1EFF 

A,(40DD) 

NEIN 

1EP8 

3A 

DD 

40 

LD 

FLAG GESETZT? 

1EFB 

B7 



OR 

A 


1EPC 

C2 

18 

1A 

JP 

NZ,1A18 

JA, ZUR HAUPTSCHLEIFE 

1EFF 

21 

IE 

ID 

LD 

HL,1 DlE 
(SP),HL 

RUECKSPRUNGADRESSE NACH HL 

1P02 

E3 



EX 

MIT POINTER VERTAUSCHEN 

1P03 

3E 

El 


LD 

Äi E1 

POINTER ZURUECK) 

(1P04 El 


POP 


ÜP 

** 


1F05 01 3A OE 
1P08 00 


SEOS (AF.BC,D,HL=P) 

DATA-ANWEISUNG 

SUCHT ENDE DER ANWEISUNG 

l\l 

LD BC.0E3A ;TRENNZEICHENS i 

NOP 


UP SEOL (AF,BC,D,HL=P) 
** ELSE-ANWEISUNG 
SUCHT ZEILENENDE 


(1F07 

OE 

00 

LD 

C,00 

TRENNZEICHEN1=0 (ZEILENENDE)) 

1F09 

06 

00 


LD 

B,00 

TRENNZEICHEN2=0 (ZEILENENDE) 

1 FOB 

79 



LD 

A,C 

TRENNZEICHEN1 UND 2 VERTAUSCHEN 

1F0C 

48 



LD 

C,B 


1F0D 

47 



LD 

B,A 


1F0E 

7E 



LD 

A,(HL) 

ZEICHEN LADEN, = ZEILENENDE? 

1F0F 

B7 



OR 

A 


1 Fl 0 

C8 



RET 

Z 

JA, FERTIG 

1 Fl 1 

B8 



CP 

B 

= TRENNZEICHEN2 

1 Fl 2 

C8 



RET 

Z 

JA, FERTIG 

1F13 

23 



INC 

HL 

POINTER INC. 

1 Fl 4 

FE 

22 


CP 

22 

_ 'll'■? 

1F16 

28 F3 


JR 

Z,1F0B 

JA, TRENNZEICHEN VERTAUSCHEN (D.H. NUR NOCH ZEILENENDE 

1 Fl 8 

D6 

8F 


SUB 

8F 

IF-TOKEN? 

1F1A 

20 

F2 


JR 

NZ,1FOE 

NEIN, WEITER 

1 Fl C 

B8 



CP 

B 

WENN NICHT IM STRING ODER NACH ELSE CY=1 

1 Fl D 

8A 



ADC 

D 

VERSCHACHTELUNGSZAEHLER INC. 

1F1E 

57 



LD 

D,A 


1F1F 

18 

ED 


JR 

1F0E 

WEITER 




** 

LET-ANWEISUNG 






WERTZUWEISUNG 


1F21 

CD 

OD 

26 

CALL 

260D 

ZUWEISUNGSVARIABLE IN VARTABELLE SUCHEN 

1F24 

CF 



RST 

08 

SYNTAXCHECK: POINTER AUF '='? 

1F25 

D5 





U 

1F26 

EB 



EX 

DE, HL 

VARTABADRESSE ABSPEICHERN 

1F27 

22 

DF 

40 

LD 

(40DF),HL 


1F2A 

EB 



EX 

DE, HL 


1F2B 

D5 



PUSH 

DE 

VARTABADRESSE RETTEN 

1F2C 

E7 



RST 

20 

TIP TESTEN 

1F2D 

F5 



PUSH 

AF 

TYP-FLAG RETTEN 

1F2E 

CD 

37 

C\J 

CALL 

2337 

AUSDRUCK AUSWERTEN 

1 F3 1 

Fl 



POP 

AF 

TYP-FLAG ZURUECK 

1F32 

E3 



EX 

(SP),HL 

POINTER RETTEN, VARTABADRESSE NACH HL 

1F33 

C6 

03 


ADD 

03 

TYPCODE ERRECHNEN 

1F35 

CD 

19 

28 

CALL 

2819 

ERGEBNIS DES AUSDRUCKES IN RICHTIGEN TYP UMWANDELN 
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TF3ö 

CD 


TJA 

rar 

ÖAU5 

;X-ADRESSE iJM AüMAEWCiliKElT VUH TYP NACH DE 

1F3B 

E5 



PUSH 

HL 

;VARTABADRESSE RETTEN 

1F3C 

20 

28 


JR 

NZ,1P66 

; SPRUNG WENN NICHT STRING 





STRINGZUWEISUNG 


1F3E 

2A 

21 

41 

LD 

HL,(4121) 

;STRINGZEIGER AUS X-REGISTER LADEN 

1P41 

E5 



PUSH 

HL 

;RETTEN 

1P42 

23 



INC 

HL 

;STRINGADRESSE LADEN 

1F43 

5E 



LD 

e,(hl) 

; (LSB) 

1F44 

2-5 



INC 

HL 


1P45 

56 



LD 

d,(hl) 

;(MSB) 

1P46 

2A 

A4 

40 

LD 

HL, (40A4) 

; STRING WEDER IM PROGRAMMTEXT NOCH IN STRINGSPACE? 

1P49 

DP 



RST 

18 


1P4A 

50 

OE 


JR 

NC,1F5A 

;JA, STRING IN STRINGSPACE UEBERNEHMEN 

1P4C 

2A 

AO 

40 

LD 

HL, ( 40A0 ) 

; STRING IM PROGRAMMTEXT? 

1P4P 

DP 



RST 

18 


1F50 

Dl 



POP 

DE 

; STRINGZEIGER NACH DE ZURUECK 

1F51 

50 

OP 


JR 

NC.1F62 

;JA, STRING NICHT IN STRINGSPACE UEBERNEHMEN 

1F53 

2A 

F9 

40 

LD 

HL, ( 40F9) 

;ZEIGT STRINGZEIGER AUF VARTAB? 

1F56 

DP 



RST 

18 


1F57 

50 

09 


JR 

NC,1F62 

;NEIN, STRING NICHT IN STRINGSPACE UEBERNEHMEN 

1F59 

5E 

Dl 


LD 

A,D1 


(155A 

Dl 


POP 

DE 

;STRINGZEIGER ZURUECK) 

1P5B 

CD 

F5 

29 

CALL 

29P5 

;STRING AUS ZWISCHENSPEICHER LOESCHEN 

1P5E 

EB 



EX 

DE | HD 

;STRINGZEIGER NACH HL 

1F5F 

CD 

45 

28 

CALL 

2843 

;STRING IN STRINGSPACE UEBERNEHMEN 

1F62 

CD 

F5 

29 

CALL 

29P5 

;STRING AUS ZWISCHENSPEICHER LOESCHEN 

1P65 

E5 



EX 

(SP),HL 

;VARTABADRESSE NACH HL ZURUECK, ZEIGER AUF ZWISCHENSPEICHER 

1P66 

CD 

D5 

09 

CALL 

09D3 

;WERT VON X IN VARTAB UEBERTRAGEN 

1P69 

Dl 



POP 

DE 

;VARTABADRESSE ZURUECK (NUR BEI NUMERISCHEN TYPEN) 

1F6A 

El 



POP 

HL 

;POINTER ZURUECK 

1P6B 

C9 



RET 




ON-ANWEISUNGEN 
VERZWEIGUNGS-ANWEISUNGEN 


1P6C 

FE 

9E 


CP 

9E 

ERROR-TOKEN? 

1P6E 

20 

25 


JR 

NZ.1F95 

;NEIN 





ON ERROR 


1P70 

D7 



RST 

10 

NAECHSTES ZEICHEN 

1P71 

CF 



RST 

08 

SYNTAXCHECK: POINTER AUF GOTO-TOKEN? 

1F72 

8D 






1F73 

CD 

5A 

IE 

CALL 

1E5A 

ZEILENNUMMER DECODIEREN 

1P76 

7A 



LD 

A,D 

= 0? 

1P77 

B3 



OR 

E 

(TRAP AUFHEBEN) 

1P78 

28 

09 


JR 

Z,1F83 

JA 

1P7A 

CD 

2A 

1B 

CALL 

1B2A 

ZEILE IM PROGRAMMTEXT SUCHEN 

1F7D 

50 



LD 

D,B 

ZEILENADRESSE NACH DE 

1F7E 

59 



LD 

E,C 


1P7P 

El 



POP 

HL 

POINTER ZURUECK 

1P80 

D2 

D9 

IE 

JP 

NC,1ED9 

ZEILE NICHT VORHANDEN? —> UL-ERROR 

1F83 

EB 



EX 

DE,HL 

TRAP-ADRESSE ABSPEICHERN 

1F84 

22 

PO 

40 

LD 

(40F0),HL 


1F87 

EB 



EX 

DE, HL 


1P88 

D8 



RET 

C 

ERRORTRAP NICHT AUFHEBEN? —> FERTIG 

1F89 

5A 

F2 

40 

LD 

A,(40F2) 

ERRORTRAP SCHON AUFGETRETEN 

1P8C 

B7 



OR 

A 


1P8D 

C8 



RET 

Z 

;NEIN, FERTIG 

1P8E 

5A 

9A 

40 

LD 

A,(409A) 

ERRORCODE NACH E LADEN 

1P91 

5F 



LD 

E,A 


1F92 

C3 

AB 

19 

JP 

19 AB 

;ZUR ERRORROUTINE 





ON GOTO 

(GOSUB) 


1P95 

CD 

IC 

2B 

CALL 

2B1C 

AUSDRUCK AUSWERTEN, GANZZAHLIGEN WERT (< 

1F98 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 

1F99 

47 



LD 

B,A 

NACH B 

1F9A 

IE 

91 


CP 

9\ 

= GOSUB-TOKEN? 

1F9C 

28 

03 


JR 

Z, 1PA1 

JA 

1P9E 

CP 



RST 

08 

SYNTAX-CHECK: POINTER AUF GOTO-TOKEN? 

1F9F 

8D 





. 

1PAO 

2B 



DEC 

HL 

POINTER DEC. 

1FA1 

4B 



LD 

C,E 

NUMMER DES SPRUNGS NACH E 

1PA2 

OD 



DEC 

C 

NUMMER - 1 , =0? 

1PA3 

78 



LD 

A,B 

TOKEN NACH A 

1PA4 

CA 

60 

ID 

JP 

Z,1D60 

JA, SPRUNG MIT NAECHSTER ZNR DURCHFUEHREN 

1FA7 

CD 

5B 

IE 

CALL 

1E5B 

ZNR DECODIEREN 

1PAA 

PE 

2C 


CP 

2C 

DAHINTER 

1PAC 

CO 



RET 

NZ 

NEIN, ZURUECK, FEHLER 

1PAD 

18 

F3 


JR 

1PA2 

WEITER 




** 

RESUME- 

ANWEISUNG 






RUECKSPRUNG VON ERROR- 

-TRAP 

1FAF 

11 

F2 

40 

LD 

DE.40F2 

ZEIGER AUF TRAP-FLAG 

1PB2 

1A 



LD 

a,(de) 

TRAP AUFGETRETEN? 

1PB3 

B7 



OR 

A 


1PB4 

CA 

AO 

19 

JP 

Z,19A0 

NEIN, RW-ERROR 

1PB7 

3C 



INC 

A 

A = 6 

1PB8 

32 

9A 

40 

LD 

(409A),A 

ERRORCODE LOESCHEN 

1PBB 

12 



LD 

(DE;,a 

TRAPFLAG LOESCHEN 

1PBC 

7E 



LD 

A, (HL) 

ZEICHEN LADEN 

1PBD 

PE 

87 


CP 

87 

=NEXT-TOKEN? 

1PBP 

28 

OC 


JR 

Z, 1 PCD 

JA 

1 PCI 

CD 

5A 

IE 

CALL 

1E5A 

ZNR DECODIEREN 

1FC4 

CO 



RET 

NZ 

WEITERE ZEICHEN? —> RUECKSPRUNG, FEHLER 

1PC5 

7A 



LD 

A,D 

ZNR = 0? 

1PC6 

B3 



OR 

E 


1PC7 

C2 

C5 

IE 

JP 

NZ,1EC5 

NEIN, IN GOTO-BEFEHL SPRINGEN 

1FCA 

3C 



INC 

A 

FLAG LOESCHEN 
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TFCF 

TB" 

~0Z 


TR- 

RESUME 

TFCF 

NEXT 

—-WEITER- 

1PCD 

D7 



RST 

10 

;NAECHSTES ZEICHEN, ZEILENENDE? 

1FCE 

CO 



RET 

NZ 

;NEIN, ZURUECK, FEHLER 

1FCF 

2A 

EE 

40 

LD 

HL,(40EE) 

;FEHLERPOINTER LADEN 

1FD2 

EB 



EX 

DE,HL 

;NACH DE 

1FD3 

2A 

EA 

40 

LD 

HL,(40EA) 

;PEHLER-ZNR LADEN 

1FD6 

22 

A2 

40 

LD 

(40A2),HL 

;ALS AKTUELLE ZNR ABSPEICHERN 

1FD9 

EB 



EX 

DE, HL 

; PEHLERPOINTER WIEDER NACH HL 

1FDÄ 

CO 



RET 

NZ 

;RESUME 0? —> FERTIG 

1PDB 

7E 



LD 

A,(HL) 

;ZEILENENDE? 

1FDC 

B7 



OR 

A 


1 FDD 

20 

04 


JR 

NZ,1FE3 

;HEIN 

1 PDP 

23 



INC 

HL 

;POINTER AUF ERSTES STATEMENT DER NAECHSTEN ZEILE 

1FEO 

23 



INC 

HL 


1PE1 

23 



INC 

HL 


1PE2 

23 



INC 

HL 


1FE3 

23 



INC 

HL 


1PE4 

7A 



LD 

A,D 

.■RECHNER IM DIREKTMODE? 

1PE5 

A3 



AND 

E 


1FE6 

3C 



IRC 

A 


1PE7 

C2 

05 

1F 

JP 

NZ.1F05 

;NEIN, NAECHSTE ANWEISUNG SUCHEN, FERTIG 

1PEA 

3A 

DD 

40 

LD 

A,(40DD) 

;FLAG GESETZT? 

1PED 

3D 



DEC 

A 


1PEE 

CA 

BE 

ID 

JP 

Z,1DBE 

;JA, PROGRAMMAÜSPUEHRUNG BEENDEN 

1PP1 

C3 

05 

1F 

JP 

1F05 

;NAECHSTE ANWEISUNG, FERTIG 





ERROR-ANWEISUNG 






ERZEUGT 

FEHLER 


1PP4 

CD 

IC 

2B 

CALL 

2B1C 

;FEHLERCODEAUSDRUCK ANALYSIEREN, GANZZAHLIGEN WERT (<256ü) 

1PP7 

CO 



RET 

NZ 

;WEITERE ZEICHEN? —> ZURUECK, FEHLER 

1PP8 

B7 



OR 

A 

;FEHLERCODE = 0? 

1FF9 

CA 

4A 

IE 

JP 

Z,1E4A 

;JA, PC-ERROR 

1 PPC 

3D 



DEC 

A 

;INTERNEN FEHLERCODE ERRECHNEN 

1PPD 

87 



ADD 

A 


1FFE 

5F 



LD 

E,A 

;NACH E 

1FPP 

PE 

2D 


CP 

2D 

; < 2D? 

2001 

3B 

02 


JR 

C, 2005 

; JA 





UE-ERROR 


2003 

IE 

26 


LD 

E,26 

;UE-ERROR-CODE NACH E 

2005 

C3 

A2 

19 

JP 

19A2 

;ZUR ERROR-ROUTINE 




** 

AUTO-BEPEHL 






AUTOMATISCHE ZEILENNUMMERIERUNG 

2008 

11 

OA 

00 

LD 

DE,000A 

;INCREMENT UND ANFANGS-ZNR = 10D (DE; (SP),(SP+1)) 

200B D5 



PUSH 

DE 


200C 

28 

17 


JR 

Z,2025 

;KEINE WEITEREN ZEICHEN? —> ZUR SCHLUSSABPRAGE 

200E 

CD 

4P 

IE 

CALL 

1E4F 

;ANFANGSWERT DECODIEREN 

2011 

EB 



EX 

DE, HL 

;ANFANGS-ZNR NACK HL, POINTER NACH DE 

2012 E3 



EX 

(SP),HL 

;ANPANGS-ZNR IN STACK, 10D ALS INCREMENT NACH HL 

2013 

28 

11 


JR 

Z,2026 

;KEINE WEITEREN ZEICHEN? —> ZUR SCHLUSSABPRAGE 

2015 

EB 



EX 

DE, HL 

;POINTER NACH HL 

2016 

CP 



RST 

08 

;SYNATXCHECK: POINTER AUF 

2017 

2C 






2018 

EB 



EX 

DE, HL 

;POINTER NACH DE 

2019 

2A 

E4 

40 

LD 

HL,(40E4) 

;ALTEN INCREMENT NACH DE UND POINTER NACH HL ZURUECK 

201G 

EB 



EX 

DE, HL 


201D 

28 

06 


JR 

Z,2025 

;KEINE WEITEREN ZEICHEN? —> ZUR SCHLUSSABPRAGE 

201P 

CD 

5A 

IE 

CALL 

1E5A 

;INCREMENT DECODIEREN 

2022 

C2 

97 

19 

JP 

NZ,1997 

;WEITERE ZEICHEN? —> SN-ERROR 

2026 

EB 



EX 

DE,HL 

;INCREMENT NACH HL 

2026 

7C 



LD 

A,H 

;INCREMENT = 0? 

2027 

B5 



OR 

L 


2028 

CA 

4A 

IE 

JP 

Z, 1E4A 

;JA, PC-ERROR 

202B 

22 

E4 

40 

LD 

(40E4),HL 

;INCREMENT ABSPEICHERN 

202E 32 

El 

40 

LD 

(40E1),A 

;AUTO-PLAG SETZEN 

2031 

El 



POP 

HL 

;ANPANGS-ZNR NACH HL 

2032 

22 

E2 

40 

LD 

(40E2),HL 

;TJND ABSPEICHERN 

2035 

CI 



POP 

BC 

;RUECKSPRUNGADRESSE ENFERNEN 

2036 

C3 

53 

1A 

JP 

1A33 

;ZUR HAUPTSCHLEIFE 




** 

IP-ANWEISUNG 






BEDINGTE ANWEISUNG 


2039 

CD 

37 

23 

CALL 

2337 x 

;BEDINGUNGSAUSDRUCK AUWERTEN 

203C 

7E 



LD 

A,(HL) 

;ZEICHEN LADEN 

203D PE 

2C 


CP 

2C 

• = ' "9 

203F 

CC 

78 

ID 

CALL 

Z, 1D78 

;JA, NAECHSTES ZEICHEN 

2042 

PE 

CA 


CP 

CA 

;=THEN-TOKEN? 

2044 

CC 

78 

ID 

CALL 

Z, 1D78 

;JA, NAECHSTES ZEICHEN 

2047 

2B 



DEC 

HL 

;POINTER DEC. 

2048 E5 



PUSH 

HL 

;UND RETTEN 

2049 

CD 

94 

09 

CALL 

0994 

;ERGEBNIS = 0? (BEDINGUNG NICHT ERFUELLT) 

204C 

El 



POP 

HL 

;POINTER ZURUECK 

204D 

28 

07 


JR 

Z.2056 

;JA, ELSE 





THEN 



204P D7 



RST 

10 

;NAECHSTES ZEICHEN, ZIPFER? 

2050 DA 

C2 

IE 

JP 

C,1EC2 

;JA, SPRUNG AUSFUEHREN 

2053 

C3 

5F 

ID 

JP 

1D5F 

;NEIN, NAECHSTE ANWEISUNG AUSFUEHREN 





ELSE 



2056 

16 

01 


LD 

D,01 

;VERSCHACHTELUNGSZAEHLER = 1 

2058 

CD 

05 

1F 

CALL 

1P05 

;NAECHSTE ANWEISUNG SUCHEN, WENN IF VERSCHACHTELUNGSZ. INC. 

205B B7 



OR 

A 

;ZEILENENDE? 

205C 

C8 



RET 

Z 

;FERTIG, KFIN ELSE 

205D 

D7 



RST 

10 

;NAECHSTES ZEICHEN 

205E PE 

95 


CP 

95 

;ELSE-TOKEN? 
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EUbCT 

TXT 

FtT 


“JR - 

flZ,2U58- 

;fWlU, WEITER' SUCHEN- 

2062 

1 5 



DEC 

D 

;RICHTIGES ELSE? 

2063 

20 

F3 


JR 

NZ,2058 

;NEIN, WEITER SUCHEN 

2065 

18 

E8 


JR 

204F 

;JA, FOLGENDE ANWEISUNG WIE THEN BEHANDELN 




** 

LPRINT- 

ANWEISUNG 






AUSGABE 

AUF DRUCKER 


2067 

3E 

01 


LD 

A,01 

:AUSGABE-FLAG AUF DRUCKER SETZEN 

2069 

32 

9C 

40 

LD 

(409C),A 


206C 

C3 

9B 

20 

JP 

209B 

;UND IN PRINT SPRINGEN 


** PRINT-ANWEISUNG 

AUSGABE AUE BILDSCHIRM 


206F 

CD 

CA 

41 

CALL 

41 CA 


2072 

FE 

40 


CP 

40 

NAECHSTES ZEICHEN = KLAMMERAFFE? 

2074 

20 

19 


JR 

NZ,208F 

;NEIN 





AT AUSFUEHREN 


2076 

CD 

01 

2B 

CALL 

2B01 

POSITONSAUSLRUCK AUSWERTEN, GANZZAHLIGEN WERT (< 32768D) NACH DE, MSB NACH A 

2079 

E5 



PUSH 

HL 

HL RETTEN 

207A 

03 

D4 

30 

JP 

30D4 

WEITER —> 

207D 

00 



NOP 



207E 

E5 



PUSH 

HL 

POINTER RETTEN 

207F 

21 

00 

44 

LD 

HL,4400 

BILDSCHIRMADRESSE NACH HL 

2082 

19 



ADD 

HL,DE 

POSITION ADDIEREN 

2083 

22 

20 

40 

LD 

(4020),HL 

UND SUMME ALS NEUE CURSORADRESSE APSPEICHERN 

2086 

CD 

2A 

36 

CALL 

362A 

POSITION DES CURSORS IN DER ZEILE ERMITTELN 

2089 

32 

A6 

40 

LD 

(40A6),A 

UND ALS NEUE CURSORPOSITON ABSPEICHERN 

208C 

El 



POP 

HL 

POINTER ZURUECK 

208D 

CF 



RST 

08 

SYNTAXCHECK: POINTER AUF ','? 

208E 

2C 






208F 

FE 

23 


CP 

23 

CASSETTENAUSGABE? 

2091 

20 

08 


JR 

NZ,209B 

NEIN, WEITER 

2093 

CD 

A9 

3-5 

CALL 

35A9 

CASSETTENRECORDER EINSCHALTEN UND HEADER AUFZEICHNEN 

2096 

3E 

80 


LD 

A,80 

AUSGABE-FLAG AUF CASSETTE 

2098 

32 

9C 

40 

LD 

(409C),A 


209B 

2B 



DEC 

HL 

POINTER DEC. 

209C 

D7 



RST 

10 

NAECHSTES ZEICHEN, ANWEISUNGSENDE? 

209D 

CC 

FE 

20 

CALL 

Z,20FE 

JA, CR AUSGEBEN 

20A0 

CA 

69 

21 

JP 

Z,2169 

UND FERTIG 

20A3 

FE 

BF 


CP 

BF 

= USING-TOKEN? 

20A5 

CA 

BD 

2C 

JP 

Z,2CBD 

JA, FORMATIERTE AUSGABE 

20A8 

FE 

BC 


CP 

BC 

= TAB-TOKEN? 

20 AA 

CA 

37 

21 

JP 

Z.2137 

JA 

20AD 

E5 



PUSH 

HL 

POINTER RETTEN 

20AE 

FE 

2C 


CP 

2C 


20B0 

CA 

08 

21 

JP 

Z,2108 

JA. ZUR NAECHSTEN TAB-POSITION 

20B3 

FE 

3B 


CP 

3B 

- * • "9 

20B5 

CA 

64 

21 

JP 

Z,2164 

JA, WEITER, NAECHSTES ZEICHEN 

20B8 

CI 



POP 

BC 

POINTER NACH BC 

20B9 

CD 

37 

23 

CALL 

2337 

AUSDRUCK AUSWERTEN 

20BC 

E5 



PUSH 

HL 

POINTER RETTEN 

20BD 

E7 



RST 

20 

ERGEBNISTYP TESTEN 

20BE 

28 

32 


JR 

Z,20F2 

STRING? —> SPRUNG 

20C0 

CD 

BD 

OF 

CALL 

OFBD 

ZAHLEN DER DREI NUMERISCHEN TYPEN IN STRINGS UMWANDELN 

20C3 

CD 

65 

28 

CALL 

2865 

STRING IN ZWISCHENSPEICHER UND X UEBERNEHMEN 

20C6 

CD 

CD 

41 

CALL 

41 CD 


20C9 

2A 

21 

41 

LD 

HL,(4121) 

STRINGZEIGER AUS X NACH HL 

20CC 

3A 

9C 

40 

LD 

A,(409C) 

AUSGABE-FLAG LADEN 

20CF 

B7 



OR 

A 

UND TESTEN 

20D0 

FA 

E9 

20 

JP 

M,20E9 

CASSETTE? —> KEINE FORMATIERUNG 

20D3 

28 

08 


JR 

Z,20DD 

DISPLAY? —> SPRUNG 

20D5 

3A 

9B 

40 

LD 

A,(409B) 

WUERDE ZAHL UEBER ZEILENENDE GEDRUCKT? 

20D8 

86 



ADD 

(HL) 

(DRUCKKOPFPOSITION + STRINGLAENGE >= ZEILENLAENGE (132D)) 

20D9 

FE 

84 


CP 

84 


20DB 

18 

09 


JR 

20E6 

WEITER WIE BEI DISPLAY 

20DD 

3A 

9D 

40 

LD 

A,(409D) 

ZEILENLAENGE NACH B 

20E0 

47 



LD 

B,A 


20E1 

3A 

A6 

40 

LD 

A,(40A6) 

(CURSORPOSITION + STRINGLAENGE >= ZEILENLAENGE (64D)) 

20E4 

8b 



ADD 

(HL) 


20E5 

B8 



CP 

B 


20E6 

D4 

FE 

20 

CALL 

NC,20FE 

JA, CR AUSGEBEN 

20E9 

CD 

AA 

28 

CALL 

28AA 

STRING AUSGEBEN 

20EC 

3E 

20 


LD 

A,20 

DANACH NOCH EIN LEERZEICHEN AUSGEBEN 

20EE 

CD 

2A 

03 

CALL 

032A 


20F1 

B7 



OR 

A 

Z=0, DAMIT NAECHSTER BEFEHL ÜEBERSPRUNGEN 

20F2 

CC 

AA 

28 

CALL 

Z,28AA 

STRlNG AUSDRUCKEN, WENN ERGEBNIS STRING WAR 

20F5 

El 



POP 

HL 

POINTER ZURUECK 

20F6 

C3 

9B 

20 

JP 

209B 

WEITER 


UP 


20F9 3A A6 40 
20FC B7 
20PD C8 


NEXTL (AF=0044) 

CR AUSGEBEN, WENN CUROSR NICHT IN POSTION 0 
I:(409C)=AUSGABE-FLAG 
( 40A6)-CURSORPOSITION 
0 :/ 

LD A,(40A6) ;CURSORPOSTION NACH A 


OR 

RET 


= 0 ? 

JA, FERTIG 


UP 


20FE 3E OD 
2100 CD 2A 03 
2103 CD DO 41 

2106 AF 

2107 C9 


CR (AF=0044) 

CR AUSGEBEN 
I:|409C)=AUSGABE-FLAG 

LD A,OD ;CR AUSGEBEN 

CALL 032A 

CALL 4IDO 

XOR A ;AF = 0044 

RET 
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; -SÜSWERIEH 


2108 CD 

D3 

41 

CALL 

41D3 


21 OB 3A 

9C 

40 

LD 

A,(409C) 

; AUSGABE-PLAG TESTEN 

21 OE B7 



OR 

A 

;DISPLAY ODER PRINTER? 

21 OP P2 

19 

21 

JP 

P, 2119 

; JA 

2112 3E 

2C 


LD 

A,2C 

;CASSETTE: AUFZEICHNEN 

2114 CD 

2A 

03 

CALL 

032A 


2117 18 

4B 


JR 

2164 

; WEITER 

2119 28 

08 


JR 

Z.2123 

; DISPLAY? —> SPRUNG 

211 B 3A 

9B 

40 

LD 

A,(409B) 

;DRUCKKOPFPOSITION < LETZTE TAB-POSITION (112D) 

21 IE FE 

70 


CP 

70 


2120 C3 

2B 

21 

JP 

212B ; 

; WEITER WIE DISPLAY 

2123 3A 

9E 

40 

LD 

A, ("409E) ; 

;LETZTE TABPOSITION NACH E (48D) 

2126 47 



LD 

B,A 


2127 3A 

A6 

40 

LD 

A,(40A6) ; 

; CURSORPOSITION < LETZTE TAB-POSITION? 

212A B8 



CP 

B 


212B D4 

PE 

20 

CALL 

NC,20PE ; 

;NEIN, CR AUSGEBEN 

212E 30 

34 


JR 

NC,2164 : 

;UND WEITER 

2130 D6 

OA 


SUB 

OA : 

; CURSORPOSTION - 10D BIS KLEINER 0 

2132 30 

PC 


JR 

NC,2130 


2134 2F 



CPL 


; ERGIBT ANZAHL DER EINZUFUEGENDEN ' ' - 1 

2135 18 

23 


JR 

215A ; 

; ENTSPRECHENDE ANZAHL AUSGEBEN 


TAB-AUSWERTEN 


2137 CD 

IE 

2B 

IAÖ-AUD 

CALL 

viLmxiiM 

2B1B 

ARGUMENTAUSDRUCK AUSWERTEN, GANZZAHLIGEN 

WERT (< 256D) NACH A 

213A CD 

B2 

30 

CALL 

30B2 

MOD 40D NACH E 


213D CP 



RST 

Ö8 

SYNTAXCHECK: POINTER AUF ')'? 


213E 29 





) 


213P 2B 



DEC 

HL ; POINTER DEC. 


2140 E5 



PUSH 

HL 

UND RETTEN 


2141 CD 

D3 

41 

CALL 

41D3 



2144 3A 

9C 

40 

LD 

A, (409c) ; AUSGABE-PLAG TESTEN 


2147 B7 



OR 

A 



2148 FA 

4A 

IE 

JP 

M, 1E4A 

CASSETTE? —> PC-ERROR 


214B CA 

53 

21 

JP 

Z,21 53 

DISPLAY? —> SPRUNG 


214E 3A 

9B 

40 

LD 

A, ( 409B ) 

DRUCKER: DRUCKKOPFPOSITION LADEN 


2151 18 

03 


JR 

2156 

WEITER WIE DISPLAY 


2153 3A 

A6 

40 

LD 

A, (40A6) 

DISPLAY: CURSORPOSITION LADEN 


2156 2P 



CPL 


TABARG MOD 64D - CURSORPOS - 1 NACH A, < 

0? 

2157 83 



ADD 

E 



2158 3Ö 

CA 


JR 

NC,2164 

JA, WEITER 


215A 3C 



INC 

A 

+ 1 


215B 47 



LD 

B,A 

ERGIBT ANZAHL DER LEERZEICHEN (NACH B) 


215C 3E 

20 


LD 

A,20 

LEERZEICHEN NACH A 


215E CD 

2A 

03 

CALL 

032A 

LEERZEICHEN AUSGEBEN 


2161 05 



DEC 

B 

FERTIG? 


2162 20 

PA 


JR 

NZ,215E 

NEIN, WEITER 





NAECHSTER PRINT-UNTERAUSDRUCK 


2164 El 



POP 

HL 

POINTER ZURUECK 


2165 D7 



RST 

10 

NAECHSTES ZEICHEN 


2166 C3 

AO 

20 

JP 

20A0 

WEITER 





ENDABFRAGE 



2169 3A 

9C 

40 

LD 

A, 409C ;AUSGABE-PLAG TESTEN 


216C B7 



OR 

A 



216D 00 

00 

00 

NOP NOP 

NOP 



2170 AP 



XOR 

A :AUSGABE-FLAG AUF DISPLAY 


2171 32 

9C 

40 

LD 

(4090,A 



2174 CD 

BE 

41 

CALL 

41 BE 



2177 C9 



RET 







TEXT 




2178 3F 

52 

45 44 

4P OD 00 


?REDO.. 





FEHLER 

IN INPUT 



217P 3A 

DE 

40 

LD 

A,(40DE) ;DATAPLAG GESETZT? 


2182 B7 



OR 

A 



2183 C2 

91 

19 

JP 

NZ.1991 

JA. SN-ERROR IN DATA-ANWEISUNG 


2186 CD 

Bl 

30 

CALL 

30B1 ;CASSETTENINPUT ? 


2189 B7 



OR 

A 



?18A IE 

2A 


LD 

E,2A 

PD-ERROR-CODE NACH E 


218C CA 

A2 

19 

JP 

Z, 19A2 

JA, PD-ERROR 


218P CI 



POP 

BC 

TASTATURINPUT: BUFFERZ. NACH BC 


2190 21 

78 

21 

LD 

HL,2178 

ZEIGER AUF TEXT '?REDO' 


2193 CD 

A7 

28 

CALL 

28Ä7 

'?REDO' AUSGEEEN 


2196 2A 

E6 

40 

LD 

HL,(40E6) 

AKTUELLEN POINTER NACH HL 


2199 C9 



RET 


ZURUECK, INPUT NEU BEGINNEN 




** 

INPUT-ANWEISUNG 






EINGABE 

-ANWEISUNG 



219A CD 

28 

28 

CALL 

2828 

DIREKT-MODE? —> ID-ERROR 


219D 7E 



LD 

A, (HL) 

ZEICHEN LADEN 


219E CD 

D6 

41 

CALL 

41D6 



21Ä1 D6 

23 


SUB 

23 

CASSETTE LESEN? 


21 A3 32 

A9 

40 

LD 

(40A9),A 

CASSETTENFLAG SETZEN 


21A6 7E 



LD 

A,(HL) 

ZEICHEN LADEN 


21 A7 20 

20 


JR 

NZ,21C9 

NEIN 





CASSETTENINPUT 



21A9 CD 

AP 

35 

CALL 

35AF 

CASSETTENRECORDER AN UND HEADER LESEN 


21 AC E5 



PUSH 

FL 

POINTER RETTEN 


21 AD 06 

PA 


LD 

B,PA 

MAX. 250D ZEICHEN 


21 AP 2A 

A7 

40 

LD 

HL,(40A7) 

T/O-BUFFERANFANG NACH HL 


21B2 CD 

ED 

01 

CALL 

01 ED 

1 ZEICHEN LESEN 


21B5 77 



LE 

(hl),a 

ABSPEICHERN 


21B6 25 



INC 

KL 

PUPPERZ. INC. 


21B7 F^ 

CD 


CP 

OD 

RECORDENDE? 


21B9 28 

02 


JR 

Z, 21BD 

JA 
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UiW 

TO” 

T5” 


~DU¥Z- 

”21 B2 

WEITER,' BIS' MAX. "250D”ZEICHEN 

21BD 

2B 



DEC 

HL 

RECORDENDE MIT 0 MARKIEREN 

21 BE 

36 

00 


LD 

(HL),00 


21 CO 

00 

00 

00 

NOP NOP 

NOP 


21C3 

2A 

A7 

40 

LD 

HL,(40A7) 

I/O-BUFFERANFANG NACH HL 

21C6 

2B 



DEC 

HL 

BUFFERZ. 1 BYTE VOR ANFANG 

21C7 

18 

22 


JR 

21EB 

WEITER 





TASTATURINPUT 


21C9 

01 

DB 

21 

LD 

BC.21DB 

RUECKSPRUNGADRESSE SETZEN 

21CC 

C5 



PUSH 

BC 


21 CD 

PE 

22 


CP 

22 

ABPRAGETEXT? 

21 CP 

CO 



RET 

NZ 

NEIN, NACH 21 DB 

2 IDO 

CD 

66 

28 

CALL 

2866 

TEXTSTRING IN ZWISCHENSPEICHER UND X UEBERNEHMEN 

21D3 

CP 



RST 

08 

SYNTAXCHECK: POINTER AUF 

21D4 

3B 





• 

21D5 

E3 



PUSH 

HL 

POINTER RETTEN 

21D6 

CD 

AA 

28 

CALL 

28AA 

TEXTSTRING DRUCKEN 

21D9 

El 



POP 

HL 

POINTER ZURUECK 

21 DA 

C9 



RET 


WEITER BEI 21 DB 

21 DB 

E3 



PUSH 

HL 

POINTER RETTEN 

21DC 

CD 

B3 

1B 

CALL 

1BB3 

'? ' DRUCKEN UND EINGABE EINER ZEILE IN I/O-BUFFER 

21 DP 

CI 



POP 

BC 

POINTER NACH BC 

21EO 

DA 

BE 

ID 

JP 

C, 1DBE 

BREAK? —> SPRUNG IN UNTERBRECHUNGSROUTINE 

21E3 

23 



INC 

HL 

BUFFERZ. AUF ERSTES ZEICHEN 

21E4 

7E 



LD 

A, (HL) 

ZEICHEN LADEN 

21E5 

B7 



OR 

A 

=ZEILENENDE? 

21E6 

2B 



DEC 

HL 

BUFFERZ. WIEDER VOR 1. ZEICHEN 

21E7 

C5 



PUSH 

BC 

POINTER RETTEN 

21E8 

CA 

04 

1F 

JP 

Z.1F04 

JA, INPUT-ANWEISUNG UEBERGEHEN, ALTE WERTE BEIBEHALTEN 

21EB 

36 

2C 


LD 

(HL),2C 

VOR 1.ZEICHEN EINFUEGEN 

21ED 

18 

05 


JR 

21F4 

WEITER 




** 

READ 







DATEN AUS PROGRAMMTEXT LESEN 

21EP 

E5 



PUSH 

HL 

POINTER RETTEN 

21FO 

2A 

PP 

40 

LD 

HL,(40FF) 

DATAZEIGER NACH HL 

21P3 

F6 

AP 


OR 

AP 

DATAPLAG SETZEN 

(21P4 

AP 


XOR 

A 

DATAFLAG LOESCHEN (BEI TASTATURINPUT ODER CASSETTE)) 

21F5 

32 

DE 

40 

LD 

(40DE),A 

DATAPLAG ABSPEICHERN 

21P8 

E5 



EX 

(SP),HL 

BUFFER-(DATA-) Z. MIT POINTER VERTAUSCHEN 

21P9 

18 

02 


JR 

21PD 

WEITER 





NAECHSTE VARIABLE 


21PB 

CP 



RST 

08 

SYNTAXCHECK: POINTER AUF ','? 

21 PC 

2C 






21PD 

CD 

OD 

26 

CALL 

260D 

VARIABLE IN VARTAB SUCHEN: VARTABADRESSE NACH DE 

2200 

E3 



EX 

(SP),HL 

POINTER RETTEN, BUFFERZ. NACH HL 

2201 

D3 



PUSH 

DE 

VARTABADRESSE RETTEN 

2202 

7E 



LD 

A,(HL) 

ZEICHEN AUS BUFFER LADEN 

2203 

PE 

2C 


CP 

2C 

= V? 

2203 

28 

26 


JR 

Z,222D 

JA, WEITER 





BUFFER 

LEER (KEIN V 

j 

2207 

3A 

DE 

40 

LD 

A,(40DE) 

DATAPLAG GESETZT? 

220A 

B7 



OR 

A 


220B 

C2 

96 

22 

JP 

NZ.2296 

JA, NAECHSTE DATA-ANWEISUNG SUCHEN 

220E 

3A 

A9 

40 

LD 

A,(40A9) 

CASSFTTENINPUT? 

2211 

B7 



OR 

A 


2212 

IE 

06 


LD 

E,06 

OD-ERROR-CODE NACH E 

2214 

CA 

A2 

19 

JP 

Z,19A2 

JA, OD-ERROR 

2217 

3E 

3F 


LD 

A,3F 

TASTATURINPUT: '?' AUSGEBEN 

2219 

CD 

2A 

03 

CALL 

032A 


221C 

CD 

B3 

1B 

CALL 

1BB3 

ERNEUTE EINGABE MIT '?? ' 

221P 

Dl 



POP 

DE 

VARTABADRESSE ZURUECK 

2220 

CI 



POP 

BC 

POINTER ZURUECK 

2221 

DA 

BE 

ID 

JP 

C,1DBE 

BREAK? —> SPRUNG IN UNTERBRECHUNGSROUTINE 

2224 

23 



INC 

HL 

BUFFERZ. AUF 1. ZEICHEN 

2225 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 

2226 

B7 



OR 

A 

ZEILENENDE? 

2227 

2B 



DEC 

HL 

BUFFERZ. VOR ERSTES ZEICHEN 

2228 

C5 



PUSH 

BC 

POINTER RETTEN 

2229 

CA 

04 

1F 

JP 

Z,1F04 

JA, RESTLICHEN INPUT UEBERGEHEN OHNE VARIABLENWERTE ZU AENDERN 

222C 

D5 



PUSH 

DE 

VARTABADRESSE WIEDER RETTEN 





EINGABE 

DECODIEREN 


222D 

CD 

DC 

41 

CALL 

41DC 


2230 

E7 



RST 

20 

TYP DER VARIABLEN TESTEN 

2231 

F5 



PUSH 

AP 

TYP-FLAG RETTEN 

2232 

20 

19 


JR 

NZ,224D 

NUMERISCHER TYP? —> SPRUNG 





STRING 

IN X UEBERNEHMEN 

2234 

D7 



RST 

10 

BUFFERZ. AUF NAECHSTES ZEICHEN 

2233 

37 



LD 

D,A 

ALS TRENNZEICHEN NACH D UND B 

2236 

47 



LD 

B.A 


2237 

PE 

22 


CP 

22 

= '»'•? 

2239 

28 

05 


JR 

Z,2240 

JA, ALS TRENNZEICHEN BENUTZEN 

223B 

16 

3A 


LD 

D,3A 

NEIN, UND ALS TRENNZEICHEN BENUTZEN 

223D 

06 

2C 


LD 

B,2C 


223F 

2B 



DEC 

HL 

UND ZEIGER 1 BYTE VOR STRING ZURUECK 

2240 

CD 

69 

28 

CALL 

2869 

STRINGKONSTANTE IN ZWISCHENSPEICHER UND X UEBERNEHMEN 





NEUEN VARIABLENWERT ABSPEICHERN 

2243 

PI 



POP 

AP 

TYP-FLAG ZURUECK 

2244 

EB 



EX 

DE, HL 

BUFFERZ. NACH DE 

2245 

21 

5A 

22 

LD 

HL.225A 

RUECKSPRUNGADRESSE NACH HL 

2248 

E3 



EX 

(SP),HL 

MIT VARTABADRESSE VERTAUSCHEN 

2249 

D5 



PUSH 

DE 

BUFFERZ. RETTEN 

224A 

C3 

33 

1F 

JP 

1F33 

SPRUNG IN LET-ROUTINE UND DANN NACH 225A 
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224D D7 
224E PI 
224F F5 
2250 01 43 22 

2253 C5 

2254 DA 6C OE 
2257 D2 65 OE 


225A 2B 
225B D7 
225C 28 05 
225E PE 2C 
2260 C2 7P 21 

2263 E3 

2264 2B 

2265 D7 

2266 C2 PB 21 


Dl 

00 

00 

00 

00 

00 

3A DE 40 

B7 

EB 

C2 96 ID 
D5 

CD DP 41 
B6 

21 86 22 
C4 A7 28 

C3 69 21 


ZAHL IN X UEBERNEHMEN 
RST 10 

POP AF 

PUSH AP 

LD BC,2243 

PUSH BC 

JP C,0E6C ; 

JP NC.OE65 5 


ENDABFRAGE 


HL 

10 

Z, 2263 
2C 

NZ,217P 
(SP),HL 
HL 
10 

NZ,21FB 


;NAECHSTES ZEICHEN 
;TYP-PLAG ZURUECK 
;UND WIEDER RETTEN 
;RUECKSPRUNGADRESSE SETZEN 

;SINGLE UND INTEGER? —> STRING IN ZAHL PASSENDEN TYPS UMWANDELN UND NACH 2243 
;DOUBLE? —> STRING IN DOUBLE UMWANDELN UND NACH 2243 

;BUFFERZ. DEC 

;NAECHSTES ZEICHEN, 0 ODER ':'? 

;JA, 

•NEIN, FEHLER 

;POINTER MIT BUFFERZ. VERTAUSCHEN 
;POINTER DEC. 

;NAECHSTES ZEICHEN, ANWEISUNGSENDE? 

;NEIN, WEITER MIT DER NAECHSTEN VARIABLEN 


KEINE WEITEREN VARIABLEN MEHR 


A,(40DE) 
A 

DE, HL 
NZ,1D96 
DE 
41 DF 
(HL) 

HL,2286 
NZ,28A7 
HL 
2169 


BUFFERZ. NACH DE 

ABFRAGE, WELCHE READ-FEHLER HERVORRIEF WURDE DURCH NOPS ERSETZT 
(SIEHE ANDERE VERSIONEN) 


;DATA-FLAG GESETZT? 

;BUFFERZ. NACH HL, POINTER NACH DE 

;BUFFERZ. ALS DATAZ. ABSPEICHERN, POINTER NACH HL ZURUECK UND FERTIG 
;POINTER RETTEN 

;ZEILENENDE IN BUFFER ERREICHT? 

;ZEIGER AUF TEXT '?EXTRA IGNORED' 

;NEIN, '?EXTRA IGNORED' AUSGEBEN 
;POINTER ZURUECK 

;AUSGABE-FLAG AUF DISPLAY, FERTIG 


2286 3F 45 78 74 72 61 20 69 67 6E 6F 72 65 64 OD 00 ?EXTRA IGNORED. 


NAECHSTE DATA-ANWEISUNG SUCHEN 


2296 CD 

05 

1F 

CALL 

1F05 ; 

2299 B7 



OR 

A ; 

229A 20 

12 


JR 

NZ,22AE ; 

229C 23 



INC 

HL ; 

229D 7E 



LD 

A,(HL) ; 

229E 23 



INC 

HL 

229F B6 



OR 

(HL) 

22A0 IE 

06 


LD 

E,06 ; 

22A2 CA 

A2 

19 

JP 

Z,19A2 ; 

22A5 23 



INC 

HL ; 

22A6 5E 



LD 

E,(HL) 

22A7 23 



INC 

HL 

22A8 56 



LD 

B«(KL) ; 

22A9 EB 



EX 

DE,HL ; 

22AA 22 

DA 

40 

LD 

(40DA),HL 

22AD EB 



EX 

DE, HL 

22AE D7 



RST 

10 ; 

22AF FE 

88 


CP 

88 ; 

22B1 20 E3 


JR 

NZ,2296 ; 

22B3 C3 

2D 

22 

JP 

222D ; 




** NEXT-ANWEISUNG 




WIEDERHOLUNGSANWEISUNG 

22B6 11 

00 

00 

LD 

DE,0000 

22B9 C4 

OD 

26 

CALL 

NZ,260D 

22BC 22 

DF 40 

LD 

(40DF),HL 

22BF CD 

36 

19 

CALL 

1936 

22C2 C2 

9D 

19 

JP 

NZ,199D 

22C5 F9 



LD 

SP, HL 

22C6 22 

E8 

40 

LD 

(40E8),HL 

22C9 D5 



PUSH 

DE 

22CA 7E 



LD 

A,(HL) 

22CB 23 



INC 

HL 

22CC F5 



PUSH 

AF 

22CD D5 



PUSH 

DE 

22CE 7E 



LD 

A,(HL) 

22CF 23 



INC 

HL 

22D0 B7 



OR 

A 

22D1 FA 

EA 

22 

JP 

M,22EA 




SINGLE 


22D4 CD 

Bl 

09 

CALL 

09B1 

22D7 E3 



EX 

(SP),HL 

22D8 E5 



PUSH 

HL 

22D9 CD 

OB 07 

CALL 

070B 

22DC El 



POP 

HL 

22DD CD 

CB 09 

CALL 

09CB 

22E0 El 



POP 

HL 

22E1 CD 

C2 

09 

CALL 

09C2 

22E4 E5 



PUSH 

HL 

22E5 CD 

OC 

OA 

CALL 

OAOC 

22E8 18 

29 


JR 

2313 


NAECHSTES ZEICHEN 
= DATA-TOKEN? 

NEIN, WEITER SUCHEN 
DATEN WEITER LESEN 


BEI FOR-NEXT-SCHLEIFE 

VARTABADRESSE = 0 (FUER NEXT OHNE VARNAME) 

WEITERE ZEICHEN? —> VARIABLE SUCHEN, VARTABADRESSE NACH DE 
POINTER ABSPEICHERN 

IN STACK NAECHSTE ODER SCHLEIFE MIT RICHTIGER LAUFVARIABLEN SUCHEN 
NICHT GEFUNDEN? —> NF-ERROR 

DURCH STACKKORREKTUR ALLE DAZWISCHEN VERSCHACHTELTEN 

SCHLEIFEN ENTFERNEN 

LAUFVARTABADRESSE RETTEN 

INC-FLAG LADEN 

STACKZEIGER INC. 

INC-FLAG RETTEN 
VARTABADRESSE RETTEN 
TYP-FLAG LADEN 
STACKZEIGER INC. 

= SINGLE? 

NEIN 


INCREMENT NACH X 

VARTABADRESSE NACH HL, STACKZEIGER RETTEN 
VARTABADRESSE RETTEN , . 

WERT DER LAUFVARIABLEN ((HL)..) + INCREMENT (X) NACH X 
VARTABADRESSE ZURUECK 

NEUEN WERT DER LAUFVARIABLE ABPSPEICHERN 
STACKZEIGER ZURUECK 
ENDWERT NACH Y LADEN 
STACKZEIGER RETTEN 

NEUEN WERT DER LAUFVARIABLE MIT ENDWERT VERGLEICHEN 
UND WEITER 


22EA 23 


INTEGER 
INC HL 


;2 UNBENUTZTE STACKEBENEN UEBERGEHEN 
Seite 64 



















ROM-Listing für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 


2ZEET 

TT 




TNC- 

"HL 


22EC 

23 




INC 

HL 


22ED 

23 




INC 

HL 


22EE 

4E 




LD 

C,(HL) 

INCREMENT NACH BC 

22EP 

23 




INC 

Hi 


22FO 

46 




LD 

B,(HL) 

(MSB) 

22P1 

23 




INC 

HL 


22P2 

E3 




EX 

(SP),HL 

STACKZEIGER RETTEN, VARTABADRESSE DER LAUFVARIABLEN NACH HL 

22F3 

5E 




LD 

E,(HL) 

ALTEN WERT DER LAUFVARIABLEN LADEN 

22P4 

23 




INC 

HL 


22P5 

56 




LD 

D,(HL) 

(MSB) 

22P6 

E5 




PUSH 

HL 

VARTABADRESSE + 1 DER LAUPVARIABLEN RETTEN 

22P7 

69 




LD 

L,C 

INCREMENT NACH HL 

22P8 

60 




LD 

H.B 


22F9 

CD 

D2 

OB 


CALL 

0BD2 

LAUFVARIAELENWERT + INCREMENT NACH HL UND X 

22PC 

3A 

AP 

40 


LD 

A,(40AF) 

TYPX = SINGLE? 

22FF 

PE 

04 



CP 

OA 

(UEBERLAUF) 

2301 

CA 

B2 

07 


JP 

Z,07B2 

JA, OV-ERROR 

2304 

EB 




EX 

DE, HL 

NEUEN WERT DER LAUFVARIABLEN NACH DE 

2305 

El 




POP 

HL 

VARTABADRESSE +1 DER LAUPVARIABLEN NACH HL ZURUECK 

2306 

72 




LD 

(hl),d 

UND NEUEN WERT ABSPEICHERN 

2307 

2B 




DEC 

HL 


2308 

73 




LD 

(HL),E 

(LSB) 

2309 

El 




POP 

HL 

STACKZEIGER ZURUECK 

230A 

D5 




PUSH 

DE 

NEUEN WERT RETTEN 

230E 

5E 




LD 

E,(HL) 

ENDWERT LADEN 

230C 

23 




INC 

HL 


230D 

56 




LD 

D, (HL) 

(MSB) 

230E 

23 




INC 

HL 


230P 

E3 




EX 

(SP),HL 

NEUEN LAUFVARIABLENWERT ZURUECK, STACKZEIGER RETTEN 

2310 

CD 

39 

OA 


CALL 

OA39 

NEUEN WERT DER LAUFVARIABLEN MIT ENDWERT VERGLEICHEN 

2313 

El 




POP 

HL 

STACKZEIGER ZURUECK 

2314 

CI 




POP 

BC 

INC-FLAG ZURUECK 

2315 

90 




SUB 

B 

VERGLEICHSERG. MIT INC-FLAG VERKNUEPFEN, SCHLEIFE BEENDET? 

2316 

CD 

C2 

09 


CALL 

09C2 

ZNR (DE) UND ANFANGSPOINTER (BC) LADEN 

2319 

28 

09 



JR 

Z.2324 

JA 

231B 

EB 




EX 

DE,HL 

ZNR NACH HL 

231C 

22 

A2 

40 


LD 

(40A2),HL 

ALS AKTUELLE ZNR ABSPEICHERN 

231P 

69 




LD 

L,C 

ANFANGSPOINTER NACH HL 

2320 

60 




LD 

H,B 


2321 

C3 

1A 

ID 


JP 

1 Dl A 

SCHLEIFENANWEISUNG AUSFUEHREN 






SCHLEIFE BEENDET 


2324 

P9 




LD 

SP, HL 

; DURCH STACKKORREKTUR SCHLEIFE ENTFERNEN 

2325 

22 

E8 

40 


LD 

(40E8),HL 


2328 

2A 

DF 

40 


LD 

HL. 40DP) 

; POINTER LADEN 

232B 

7E 




LD 

A, HL) 

; ZEICHEN LADEN 

232C 

PE 

2C 



CP 

2C 

• = ' "9 

232E 

C2 

IE 

ID 


JP 

NZ.1D1E 

;NEIN, NAECHSTEN BEFEHL 

2331 

D7 




RST 

10 

;NAECHSTES ZEICHEN 

2332 

CD 

B9 

22 


CALL 

22B9 

;NAECHST AEUSSERE SCHLEIFE BEARBEITEN 





UP 

EXPB (AF.BC,DE,HL=P) 







AUSDRUCK AUSWERTEN DER MIT KLAMMER BEGINNT 






I:SIEHE 

EXP 







0:SIEHE 

EXP 


2335 

CP 




RST 

08 

;SYNTAX-CHECK: POINTER AUF '('? 

2336 

28 






( 

\ 





UP 

EXP (ap,bc,de,hl=p) 







AUSDRUCK AUSWERTEN 







I: HL . 

.=AUSDRUCK 







0:X=ERGEBNIS 


2337 

2B 




DEC 

HL' 

POINTER DEC. 

2338 

16 

00 



LD 

D ,00 

LASTLEVEL = 0 (PRIORITAETSCODE DES LETZTEN OPERANDEN) 

233A 

D5 




PUSH 

DE 

RETTEN 

233B 

OE 

01 



LD 

C,01 

GENUEGEND SPEICHER FREI? 

233D 

CD 

63 

19 


CALL 

1963 

NEIN, OM-ERROR 

2340 

CD 

9F 

24 


CALL 

249F 

OPERANDEN ANALYSIEREN UND NACH X 

2343 

22 

F3 

40 


LD 

(40P3),HL 

POINTER ABSPEICHERN 

2346 

2A 

F3 

40 


LD 

HL,(40P3) 

POINTER LADEN 

2349 

CI 




POP 

BC 

LASTLEVEL NACH B ZURUECK 

234A 

7E 




LD 

A,(HL) 

NAECHSTES ZEICHEN LADEN 

234B 

16 

00 



LD 

D,00 

OPERATORCODE = 0 

234D 

D6 

D4 



SUB 

D4 

VERGLEICHSOPERATOR? 

234P 

38 

13 



JR 

C.2364 

NEIN 

2351 

PE 

03 



CP 

o5 


2353 

30 

OP 



JR 

NC,2364 

NEIN 

2355 

PE 

01 



CF 

01 

EIT 0 EUER >, 1 FUER = UND 2 FUER < SETZEN 

2357 

17 




RLA 



2358 

AA 




XOR 

D 

ENTSPRECHENDES BIT IN OPERATORCODE SETZEN 

2339 

BA 




CP 

D 

WAR VORHER SCHON GESETZT? 

235A 

57 




LD 

D,A 

(D.H. DER GLEICHE OPERATOR ZUM ZWEITEN MALE) 

233-B 

DA 

97 

19 


JP 

C,1997 

JA, SN-ERROR 

235E 

22 

D8 

40 


LD 

(40D8),HL 

POINTER ABSPEICKERN 

2361 

D7 




RST 

10 

NAECHSTES ZEICHEN 

2362 

18 

E9 



JR 

234D 

WEITER 

2364 

7A 




LD 

A,D 

OPERATORCODE > 0? 

2365 

B7 




OR 

A 

(VERGLEICHSOPERATOR GEFUNDEN) 

23bb 

C2 

EC 

23 


JP 

NZ.23EC 

JA 

2369 

7E 




LD 

A,(HL) 

ZEICHEN LADEN 

236A 

22 

D8 

40 


LD 

(40D8),HL 

POINTER ABSPEICHERN 

236D 

D6 

CD 



SUB 

CD 

EINER DER RESTLICHEN OPERATCREN 

236P 

D8 




RET 

C 

NEIN, LETZTE OPERATION BERECHNEN, FERTIG 

2370 

PE 

07 



CP 

07 


2372 

DO 




RET 

NC 

NEIN, S.O. 

2373 

5F 




LD 

E,A 

OPERATORCODE NACH E 

2374 

3A 

AP 

40 


LD 

A, (40AF) 

STRING IN X 

2377 

D6 

03 



SUB 

03 
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B3 



ÖK 

E- 

UJND + -upEraTOHV 

?yth 

CA 

8F 

29 

JP 

Z,298F 

JA, STRINGVERKNUEPFUNG 

Ü3VÜ 

21 

9A 

18 

LD 

HL,189A 

LEVEL DES OPERATORS AUS TABELLE ENTNEHMEN: TABANFANG NACH HL 

2380 

19 



ADD 

HL,DE 

OPERATORCODE ADDIEREN 

2381 

78 



LD 

A,B 

LASTLEVEL NACH A 

2382 

56 



LD 

D,(HL) 

NEWLEVEL AUS TABELLE LADEN 

2383 

BA 



CP 

D 

LASTLEVEL >= NEWLEVEL? 

2384 

DO 



RET 

NC 

JA, LETZTE OPERATION BERECHNEN 

2383 

03 



PUSH 

BC 

LASTLEVEL RETTEN 

2386 

01 

46 

23 

LD 

BC,2346 

ADRESSE FUER NAECHSTEN OPERANDEN AUF STACK 

2389 

C5 



PUSH 

BC 


238A 

7A 



LD 

A,D 

NEWLEVEL = 7F? 

238B 

FE 

7F 


CP 

7F 

(OPERATOR = '**') 

238D 

CA 

D4 

23 

JP 

Z.23D4 

JA 

2390 

FE 

51 


CP 

51 

AND ODER OR? 

2392 

DA 

El 

23 

JP 

C,23E1 

JA 





OPERANDEN AUF STACK 


2395 

21 

21 

41 

LD 

HL,4121 

X-ADRESSE NACH HL 

2398 

B7 



OR 

A 

CY LOESCHEN 

2399 

3A 

AF 

40 

LD 

A,(40AF) 

TYPX LADEN 

2390 

3D 



DEC 

A 

TYPX - 3 NACH A, STRING IN X? 

239D 

3D 



DEC 

A 


239E 

3D 



DEC 

A 


239E 

CA 

F6 

OA 

JP 

Z,0AF6 

JA, TM-ERROR 

23A2 

4E 



LD 

c,( hl) 

OPERANDEN LADEN 

23A3 

23 



INC 

HL 


23A4 

46 



LD 

b,(hl) 

(MSB) 

23A5 

05 



PUSH 

BC 

UND AUF STACK 

25A6 

FA 

C5 

23 

JP 

M,23C5 

INTEGER IN X? —> FERTIG 

23A9 

23 



INC 

HL 


23AA 

4E 



LD 

C,(HL) 

OPERANDEN LADEN 

23AB 

23 



INC 

HL 


23AC 

46 



LD 

B,(HL) 

(MSB) 

2 3 AD 

C5 



PUSH 

BC 

UND AUF STACK 

23AE 

F3 



PUSH 

AF 

TYP-FLAG RETTEN 

23AE 

B7 



OR 

A 

SINGLE? 

23B0 

E2 

C4 

23 

JP 

P0.23C4 

JA, FERTIG 

23B3 

Fl 



POP 

AF 

TYPFLAG ZURUECK 

23B4 

23 



INC 

HL 


23B5 

38 

03 


JR 

C,23BA 

Y AUF STACK? —> WEITER 

23B'/ 

21 

ID 

41 

LD 

HL.411D 

LSB X ADRESSE NACH HL 

23BA 

4E 



LD 

c,( hl) 

OPERANDEN LADEN 

23BB 

23 



INC 

HL 


23BC 

46 



LD 

B,(HL) 

(LSB) 

23BD 

23 



INC 

HL 


23BE 

05 



PUSH 

BC 

UND AUF STACK 

23BP 

4E 



LD 

c,( hl) 

OPERANDEN LADEN 

23C0 

23 



INC 

HL 


23C1 

46 



LD 

B,(HL) 

(LSB) 

2302 

C5 



PUSH 

BC 

UND AUF STACK 

23C3 

06 

Fl 


LD 

B,F1 


(23C4 

Fl 


POP 

AF 

TYP-FLAG ZURUECK (BEI SINGLE)) 

23C3 

C6 

03 


ADD 

03 

TYPCODE ERRECHNEN 

2307 

4B 



LD 

C,E 

OPERATORCODE NACH C 

23C8 

47 



LD 

B,A 

TYPCODE NACH B 

23C9 

C5 



PUSH 

BC 

AUF STACK 

230A 

01 

06 

24 

LD 

BC,2406 

ADRESSE FUER VERARBEITUNG DER OPERATIONEN 

23CD 

C5 



PUSH 

BC 

AUF STACK 

23CE 

2A 

D8 

40 

LD 

HL,(40D8) 

POINTER ZURUECK 

23D1 

C3 

3A 

23 

JP 

233A 

NAECHSTER OPERAND 





OPERANDEN FUER POWER AUF STACK 

23D4 

CD 

Bl 

OA 

CALL 

0AB1 

X IN SINGLE UMWANDELN 

23D7 

CD 

A4 

09 

CALL 

09 A4 

X AUF' STACK 

23DA 

01 

F2 

13 

LD 

BC.13F2 

ADRESSE ZUR BERECHNUNG DER POTENZ NACH BC 

23DD 

16 

7F 


LD 

D,7F 

NEWLEVEL = 7F 

23DF 

18 

EC 


JR 

23CD 

WEITER WIE OBEN 





OPERANDEN FUER AND, OR AUF STACK 

23E1 

D5 



PUSH 

DE 

OPERATORCODE RETTEN 

23E2 

CD 

7F 

OA 

CALL 

0A7F 

OPERAND IN INTEGER UMWANDELN 

23E5 

Dl 



POP 

DE 

OPERATORCODE ZURUECK 

23E6 

E5 



PUSH 

HL 

OPERAND AUF STACK 

23E7 

01 

E9 

25 

LD 

BC,25E9 

ADRESSE ZUR VERARBEITUNG VON AND UND OR NACH BC 

23EA 

18 

El 


JR 

23CD 

WEITER WIE OBEN 





VERGLEICHSOPERATOREN BEARBEITEN 

23EC 

78 



LD 

A,B 

HATTE LETZTER OPERATOR HOEHEREN ODER GLEICHEN LEVEL? 

23ED 

FE 

64 


CP 

64 


23EF 

DO 



RET 

NC 

JA, LETZTE OPERATION BERECHNEN 

23F0 

C5 



PUSH 

BC 

LASTLEVEL RETTEN 

23P1 

D5 



PUSH 

DE 

OPERATORCODE RETTEN 

23 P 2 

11 

04 

64 

LD 

DE,6404 

LEVEL NACH D, CODE FUER VERGLEICH NACH E 

23F5 

21 

B8 

25 

LD 

HL,25B8 

ADRESSE ZUR AUFARBEITUNG DES VERGLEICHSERGEBNISSES AUF STACK 

23F8 

E5 



PUSH 

HL 


23F9 

E7 



RST 

20 

TYP TESTEN 

23FA 

C2 

95 

23 

JP 

NZ,2395 n 

NUMERISCHER TYP? —> OPERATOREN AUF STACK (S.O.) 

23FD 

2A 

21 

41 

LD 

HL,(4121) 

STRING: STRINGZEIGER AUF STACK 

2400 

E5 



PUSH 

HL 


2401 

01 

8C 

25 

LD 

BC,258C 

ADRESSE FUER STRINGVERGLEICH AUF STACK 

2404 

18 

C7 


JR 

23CD 

WEITER WIE OBEN 





OPERATIONEN AUSFUEHREN 

2406 

CI 



POP 

BC 

OPERATORCODE UND TYP ZURUECK 

2407 

79 



LD 

A,C 

OPERATORCODE ABSPEICHERN 

2408 

32 

BO 

40 

LD 

(40B0),A 


240B 

78 



LD 

A,B 

1.OPERAND DOUBLE? 

240C 

FE 

08 


CP 

08 
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2428 21 BP 
242B 06 OC 
242D 09 
242E 09 
242F 4E 

2430 23 

2431 46 

2432 Dl 

2433 2A 21 

2436 C5 

2437 C9 


18 


41 


2438 

243B 

243E 

243P 

2442 

2443 

2446 

2447 

2448 
244B 
244E 
2451 

2454 

2455 

2456 

2457 
2459 
245A 
245B 
245C 
245D 
245E 
245F 


CD DB OA 
CD PC 09 
El 

22 1F 41 
El 

22 ID 41 
CI 

Dl 

CD B4 09 
CD DB OA 
21 AB 18 
3A BO 40 
07 
C5 
4P 

06 00 
09 
CI 
7E 

23 
66 
6F 
E9 


2460 C5 

2461 CD PC 09 

2464 PI 

2465 32 AP 40 
2468 PE 04 
246A 28 DA 
246C El 
246D 22 21 
2470 18 D9 


41 


2472 CD Bl 

2475 CI 

2476 Dl 

2477 21 B5 
247A 18 PC 


OA 


18 


247C El 
247D CD A4 09 
2480 CD CP OA 
2483 CD BP 09 

2486 El 

2487 22 23 41 
248A El 

248B 22 21 
248E 18 E7 


41 


2490 E5 

2491 EB 

2492 CD CP OA 

2495 El 

2496 CD A4 09 
2499 CD CP OA 
249C C3 AO 08 


UP 


UP 


JK 

2,2438 

;ja 

LD 

A,(40AF) 

;2.OPERAND DOUBLE? 

CP 

08 


JP 

Z, 2460 

; JA 

LD 

D,A 

;TYP DES 2.OPERANDEN NACH D 

LD 

A,B 

;1.OPERAND SINGLE? 

CP 

04 


JP 

Z.2472 

; JA 

LD 

A.D 

;NEIN:1.OPERAND INTEGER: 2.OPERAND STRING? 

CP 

03 

JP 

Z,0AF6 

;JA, TM-ERROR 

JP 

NC.247C 

;2.OPERAND SINGLE? —> SPRUNG 

INTEGEROPERATIONEN AUSFUEHREN 

LD 

HL,18BP 

B,00 

; SFRUNGTABELLENANFANG PUER INTEGER LADEN 

LD 

; OPERATORCODE 2 MAL ADDIEREN 

ADD 

HL,BC 

ADD 

HL.BC 


LD 

C,(HL) 

; ADRESSE LADEN 

INC 

HL 


LD 

B, (HL) 

; (MSB) 

POP 

DE 

;1.OPERAND ZURUECK 

LD 

HL,(4121) 

;2.OPERAND NACH HL 

PUSH 

RET 

BC 

;NACH BC SPRINGEN 

1.OPERAND DOUBLE 


CALL 

OADB 

;2.OPERANDEN IN DOUBLE UMFORMEN 

CALL 

09PC 

;UND NACH Y 

POP 

HL 

; 1.OPERAND VOM STACK NACH X 

LD 

(411P),HL 

;LSB 

POP 

HL 


LD 

(411D),HL 

;LSB 

POP 

BC 

;LSB, MSB UND EXP 

POP 

DE 


CALL 

09B4 

NACH X 

CALL 

OADB 

1.OPERAND IN DOUBLE UMFORMEN 

LD 

HL.18AB 

ANFANG DER DOUBLE-OPERATIONEN-SPRUNGTABELLE 

LD 

A,(40B0) 

OPERATORCODE LADEN 

RLCA 

* 2 

PUSH 

BC 

BC RETTEN 

LD 

C, A 

NACH BC 

LD 

B,00 


ADD 

HL,BC 

; AUF TABANFANG ADDIEREN 

POP 

BC 

;BC ZURUECK 

LD 

Mhl) 

ADRESSE NACH HL LADEN 

INC 


LD 

H,(HL) 

(MSB) 

LD 

L, A 
(HL) 

(LSB) 

JP 

UND ABSPRINGEN 

2.OPERAND DOUBLE 


PUSH 

BC 

OPERATORCODE (C) UND TYP (B) RETTEN 

CALL 

09PC 

2.OPERAND NACH Y 

POP 

AP 

TYP DES 1.OPERANDEN NACH A 

LD 

(40AF),A 

NACH TYP X 

CP 

04 

SINGLE? 

JR 

Z,2446 

JA, VOM STACK HOLEN, IN DOUBLE UMWANDELN UND 

PCP 

HL 

NEIN, INTEGER: 1.OPERAND NACH HL 

LD 

(4121),HL 

NACH X 

JR 

244B 

IN DOUBLE UMWANDELN UNL WEITER 

1.OPERAND SINGLE 


CALL 

0AB1 

2.OPER AND IN SINGLE UMWANDELN 

POP 

BC 

1.OPERAND VOM STACK NACH Y 

POP 

DE 


LD 

HL.18B5 ;ANFANG DER SINGLE-0PERA7I0NEN-SPRUNGTABELLE 

2451 ;OPERATIONEN AUSFUEHREN 

JR 

2.OPERAND SINGLE 


POP 

HL 

1.OPERAND' (INTEGER) NACH HL 

CALL 

09 A4 

2.OPERANDEN AUF STACK 

CALL 

OACP 

IN SINGLE UMWANDELN 

CALL 

09BF 

UND NACH Y 

POP 

HL 

2.OPERANDEN AUS STACK NACH X 

LD 

(4123),HL 

(EXP/MSE) 

POP 

HL 

LD 

(4121),HL 

(LSB) 

JR 

2477 ; 

UND WEITER 

IDIV 

(AF,BC.de,hl) 


INTEGERDIVISION 


I :DE= 

DIVIDEND 


HL= 

DIVISOR 


0:X=QU0TIENT (SINGLE) 


PUSH 

HL ; 

DIVISOR RETTEN 

EX 

DE,HL ; 

DIVIDEND NACH HL 

CALL 

OACP ; 

UND ALS SINGLE NACH X 

POP 

HL ; 

DIVIDPNT ZURUECK 

CALL 

09A4 ; 

NACH X ALS INTEGER 

CALL 

OACP ; 

IN SINGLE UMWANDELN 

JF 

08A0 ; 

SINGLEDIVISICN: QUOTIENT NACH X 


24 I 9F D7 
24A0 IE 28 


OPERND (AF,BC,DE,EL=P) 

OPERANDEN FUER AUSDRUCKSANALYSE AUSWERTEN 

I: (HL+1).. =TEXT 

0:X=ERGEBNIS 

RST 10 ;NAECHSTES ZEICHEN, ANWEISUNGSENDE? 

ED E,28 ;MO-ERROR-CODE NACH E 
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24A2UA 

az iy 

UT- 

" ZV19A2- 

d'A,' mD'-EKKUK- 


24A5 DA 

6C OE 

JP 

C.0E6C 

ZIFFER? —> WERT DER ZAHL ERMITTELN, NACH X 

UND ZURUECK 

24A8 CD 

3D IE 

CALL 

1E3D 

BUCHSTABE? 


24AB D2 

40 25 

JP 

NC,2540 

JA, VARIABLENWERT IN AUSDRUCK EINBRINGEN 


24AE FE 

CD 

CP 

CD 

= +'-VORZEICHEN-TOKEN? 


24BO 28 

ED 

JR 

Z,249F 

JA, INGNORIEREN, WEITER 


24B2 FE 

2E 

CP 

2E 

ZEICHEN = '.'? 


24B4 CA 

6C OE 

JP 

Z,0E6C 

JA. ZAHL NACH X, FERTIG 


24B7 FE 

CE 

CP 

CE 

= '-'-VORZEICHEN-TOKEN? 


24B9 CA 

32 25 

JP 

Z.2532 

JA. - TEILAUSDRUCK ERMITTELN, FERTIG 


24BC FE 

22 

CP 

2$ 



24BE CA 

66 28 

JP 

Z,2866 

JA, STRINGKONSTANTE NACH X, FERTIG 


24C1 FE 

CB 

CP 

CB 

= NOT-TOKEN? 


24C3 CA 

C4 25 

JP 

Z.25C4 

JA, NOT TEILAUSDRUCK BESTIMMEN, ZURUECK 


24C6 FE 

26 

CP 

2§ 

= V? 


24C8 CA E3 34 

JP 

Z.34E3 

JA, OKTALE ODER HEXADEZIMALE KONSTANTE NACH 

X 

24CB FE 

C3 

CP 

ci 

= ERR-TOKEN? 


24CD 20 

OA 

JR 

NZ,24D9 

NEIN, WEITER 



** 

ERR-FUNKTION 





ERGIBT 

DEN LETZEN FEHLERCODE 


24CF D7 


RST 

10 

NAECHSTES ZEICHEN 


24D0 3A 

9A 40 

LD 

A,(409A) 

LETZTEN FEHLERCODE LADEN 


24D3 E5 


PUSH 

HL 

POINTER RETTEN 


24D4 CD 

F8 27 

CALL 

27F8 

FEHLERCODE ALS INTEGER NACH X 


24D7 El 


POP 

HL 

POINTER ZURUECK 


24D8 C9 


RET 


FERTIG 


24D9 FE 

C2 

CP 

C2 

= ERL-TOKEN? 


24DB 20 

OA 

JR 

NZ,24E7 

NEIN 



** 

ERL-FUNKTION 





ERGIBT 

LETZTE FEHLERZEILE 


24DD D7 


RST 

10 

NAECHSTES ZEICHEN 


24DE E5 


PUSH 

HL 

POINTER RETTEN 


24DF 2A 

EA 40 

LD 

HL,(40EA) 

LETZTE FEHLER-ZNR LADEN 


24E2 CD 

66 OC 

CALL 

0C&6 

ALS INTEGER OHNE SIGN IN SINGLE UMWANDELN UND NACH X 

24E5 El 


POP 

HL 

POINTER ZURUECK 


24E6 C9 


RET 


FERTIG 


24E7 FE 

CO 

CP 

CO 

= VARPTR-TOKEN? 


24E9 20 

14 

JR 

NZ,24FF 

NEIN 



** 

VARPTR- 

-FUNKTION 





ERGIBT 

VARIABLENADRESSE IN VARTAB 


24EB D7 


RST 

10 

NAECHSTES ZEICHEN 


24EC CF 


RST 

08 

SYNTAXCHECK: POINTER AUF '('? 


24ED 28 




( 


24EE CD 

OD 26 

CALL 

260D 

VARTABADRESSE NACH DE 


24F1 CF 


RST 

08 

SYNTAXCHECK: POINTER AUF ')'? 


24F2 29 




) 


24F3 E5 


PUSH 

HL 

POINTER RETTEN 


24F4 EB 


EX 

DE,HL 

VARTABADRESSE NACH HL 


24F5 7C 


LD 

A,H 

= 0? 


24F6 B5 


OR 

L 

(VARIABLE NICHT IN VARTAB) 


24F7 CA 

4A IE 

JP 

Z.1E4A 

JA, FC-ERROR 


24FA CD 

9A OA 

CALL 

0A9A 

VARTABADRESSE ALS INTEGER NACH X 


24FD El 


POP 

HL 

POINTER ZURUECK 


24FE C9 


RET 


FERTIG 


24FF FE 

CI 

CP 

CI 

= USR-TOKEN? 


2501 C3 

7A 3F 

JP 

3F7A 

WEITERE TOKEN 


2504 FE 

C5 

CP 

C5 

= INSTRS-TOKEN? 


2506 CA 

9D 41 

JP 

Z.419D 

JA (NUR IN DISK-BASIC) 


2509 FE 

C8 

CP 

C8 

= MEM-TOKEN? 


250B CA 

C9 27 

JP 

Z,27C9 

JA 


250E FE 

C7 

CP 

C *1 

= TIMES-TOKEN 


2510 CA 76 41 

JP 

Z.4176 

JA (NUR IN DISK-BASIC) 


2513 FE 

C6 

CP 

c£ 

= POINT-TOKEN? 


2515 CA 32 01 

JP 

z ,0132 

JA 


2518 FE 

C9 

CP 

c§ 

= INKEY $-T OKEN ? 


251A CA 

9D 01 

JP 

Z ,019D 

JA 


251D FE 

C4 

CP 

C4 

= STRINGS-TOKEN? 


251F CA 

2F 2A 

JP 

Z,2A2F 

JA 


2522 FE 

BE 

CP 

BE 

= FN-TOKEN? 


2524 CA 

55 41 

JP 

Z,4155 

JA (NUR IN DISK-BASIC) 


2527 D6 

D7 

SUB 

D7 

FUNKTIONSTOKEN? 


2529 D2 

4E 25 

JP 

NC,254E 

JA 


252C CD 

35 23 

CALL 

2335 

NEIN, IN KLAMMERN EINGESCHLOSSENEN AUSDRUCK 

AUSWERTEN 

25 2F CF 


RST 

08 

SYNTAXCHECK: POINTER AUF ')'? 


2530 29 




) 


2531 C9 


RET 


; FERTIG 




'-'-VORZEICHEN AUSWERTEN 


2532 16 

7D 

LD 

D,7D 

LEVEL FUER -VORZEICHEN 


2534 CD 

3A 23 

CALL 

233A 

AUSDRUCK MIT PRIORITAET AUSWERTEN 


2537 2A F3 40 

LD 

HL,(40F3) 

POINTER LADEN 


253A E5 


PUSH 

HL 

UND RETTEN 


253B CD 

7B 09 

CALL 

097B 

ERGEBNIS MAL (-1) 


253E El 


POP 

HL 

POINTER ZURUECK 


253F C9 


RET 






VARIABLENWERT IN AUSDRUCK EINBRINGEN 


2540 CD 

OD 26 

CALL 

260D 

;VARTABADRESSE NACH DE, WENN VARIABLE NICHT 

VORHANDEN, X=0 

2543 E5 


PUSH 

HL 

;POINTER RETTEN 


2544 EB 


EX 

DE, HL 

; VARTABADRESSE NACH HL 


2545 22 

21 41 

LD 

(4121),HL 

;UND IN X ALS STRINGZEIGER ABSPEICHERN 


2548 E7 


RST 

20 

: STRINGVARIABLE? 


2549 C4 

F7 09 

CALL 

NZ,09F7 

;NEIN, VARIABLENWERT NACH X UEBERTRAGEN 


254C El 


POP 

HL 

;POINTER ZURUECK 


254D C9 


RET 





SOFORT ZURUECK 
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—FUNKT1UNSAKGUMENTE AOSWERTEN UND'IUMTLUNEN ANSPRINGEN 

254E 

06 

00 


LD 

B,00 

(FUNKTIONSTOKEN - D7) * 2 ERGIBT TABELLENOFFSET 

2550 

07 



RLCA 



2551 

4F 



LD 

C,A 

NACH BC 

2552 

C5 



PUSH 

BC 

TABOFFSET RETTEN 

2555 

D7 



RST 

10 

NAECHSTES ZEICHEN 

2554 

79 



LD 

A,C 

LSB TABOFFSET >41? 

2555 

FE 

41 


CP 

41 

(MID$, RIGHTS, LEFTS-TOKENS) 

2557 

38 

16 


JR 

C.256F 

NEIN 

2559 

CD 

35 

23 

CALL 

2335 

1 .ARGUMENT AUSWERTEN 

255C 

CF 



RST 

08 

SYNTAXCHECK: POINTER AUF ','? 

255D 

2C 






255E 

CD 

F4 

OA 

CALL 

0AF4 

1.ARGUMENT KEIN STRING? —> TM-ERROR 

2561 

EB 



EX 

DE, HL 

POINTER NACH DE 

2562 

2A 

21 

41 

LD 

HL,(4121) 

STRINGZEIGER LADEN 

2565 

E3 



EX 

(s£),hl 

TABOFFSET ZURUECK, STRINGZEIGER RETTEN 

2566 

E5 



PUSH 

HL 

TABOFFSET RETTEN 

25b7 

EB 



EX 

DE, HL 

POINTER WIEDER NACH HL 

2568 

CD 

IC 

2B 

CALL 

2B1C 

2.ARGUMENT ANALYSIEREN, GANZZAHLIGEN WERT (< 256D) NACH DE 

256B 

EB 



EX 

DE, HL 

2.ARGUMENT NACH HL, POINTER NACH DE 

256C 

E3 



EX 

(SP),HL 

2.ARGUMENT RETTEN, TABOFFSET ZURUECK 

256D 

18 

14 


JR 

2583 

WEITER 

256F 

CD 

2C 

25 

CALL 

252C 

ARGUMENT AUSWERTEN 

2572 

E3 



EX 

(SP),HL 

POINTER RETTEN, TABOFFSET NACH HL 

2575 

7D 



LD 

A,L 

LSB-TABOFFSET < OC? 

2574 

FE 

OC 


CP 

OC 

(SGN, INT, ABS, FRE, INP, POS) 

2576 

38 07 


JR 

C,257F 

JA 

2578 

FE 

1B 


CP 

1B 

LSB-TABOFFSET < 1B? 

257A 

E5 



PUSH 

HL 

(SINGLEFUNKTIONEN: SQR, RND, LOG, EXP, COS, SIN, TAN, ATN): TABOFFSET RETTEN 

257B 

DC 

Bl 

OA 

CALL 

C,0AB1 

JA, ARGUMENT IN SINGLE UMWANDELN 

257E 

El 



POP 

HL 

TABOFFSET ZURUECK 

257F 

11 

3E 

25 

LD 

DE,253E 

RUECKSPRUNGADRESSE SETZEN 

2582 

D5 



PUSH 

DE 

(POP HL: POINTER ZURUECK, FERTIG) 

2583 

01 

08 

16 

LD 

BC,1608 

TABANFANG NACH BC 

2586 

09 



ADD 

HL.BC 

TABOFFSET ADDIEREN 

2587 

4E 



LD 

C,(HL) 

SPRUNGADRESSE LADEN 

2588 

23 



INC 

HL 


2589 

66 



LD 

H,(HL) 

(MSB) 

258A 

69 



LD 

L,C 

(lsb) 

25 8B 

E9 



JP 

(HL) 

UND FUNKTION ANSPRINGEN 





STRINGVERGLEICH 


258C 

CD 

D7 

29 

CALL 

29D7 

2.STRING AUS ZWISCHENSPEICHER UND STRINGSPACE ENTFERNEN 

258F 

7E 



LD 

A,(HL) 

2.STRINGLAENGE NACH A 

2590 

23 



INC 

HL 


2591 

4E 



LD 

c,(HL) 

2. STRING ADRESSE NACH BC 

2592 

23 



INC 

HL 


2593 

46 



LD 

B,(HL) 

(MSB) 

2594 

Dl 



POP 

DE 

1.STRINGZEIGER NACH DE 

2595 

C5 



PUSH 

BC 

2.STRINGADRESSE UND 

2596 

F5 



PUSH 

AF 

2.STRINGLAENGE RETTEN 

2597 

CD 

DE 

29 

CALL 

29DE 

;1.STRING AUS ZWISCHENSPEICHER UND STRINGSPACE ENTFERNEN 

259A 

Dl 



POP 

DE 

2.STRINGLAENGE NACH D 

25 9B 

5E 



LD 

E,(HL) 

1.STRINGLAENGE NACH E 

259C 

23 



INC 

HL 


259D 

4E 



LD 

c,(HL) 

;1.STRINGADRESSE NACH BC 

259E 

23 



INC 

HL 


25 9F 

46 



LD 

B,(HL) 

(MSB) 

25AO 

El 



POP 

HL 

2.STRINGADRESSE ZURUECK NACH HL 

25A1 

7B 



LD 

A,E 

BEIDE STRINGS NULLSTRINGS? 

25A2 

B2 



OR 

D 


25A3 

C8 



RET 

Z 

;JA, ZURUECK MIT A=0 FUER GLEICHHEIT 

25A4 

7A 



LD 

A,D 

2.STRINGLAENGE = 0? 

25A5 

D6 

01 


SUB 

01 


25A7 

D8 



RET 

C 

;JA, ZURUECK MIT A=FF, C=1, S=1 FUER 1.STRING > 2.STRING 

25A8 

AF 



XOR 

A 

;A = 0 

25A9 

BB 



CP 

E 

1. STRINGLAENGE = 0? 

25AA 

3C 



INC 

A 


25 AB 

DO 



RET 

NC 

; JA, ZURUECK MIT A=1, Z=0, C=0 FUER 1.STRING < 2.STRING 

25 AC 

15 



DEC 

D 

;BEIDE STRINGLAENGEN DEC. 

25AD 

ID 



DEC 

E 


25AE 

OA 



LD 

A,(BC) 

;ZEICHEN AUS 1.STRING 

25AF 

BE 



CP 

(HL) 

;MIT ZEICHEN AUS 2.STRING VERGLEICHEN 

25BO 

23 



INC 

HL 

;ZEIGER INC. 

25B1 

03 



INC 

BC 


25B2 

28 

ED 


JR 

Z,25A1 

BEIDE ZEICHEN GLEICH? —> WEITER 

25B4 

3F 



CCF 


; CY KOMPLEMENTIEREN 

25B5 

C3 

60 

09 

JP 

0960 

;FLAG AUFBEREITEN, FERTIG 





ERGEBNIS DES VERGLEICHS MIT VERGLEICHSOPERATOR ZU GESAMTERGEBNIS ZUSAMMENFASSEN 

25B8 

3C 



INC 

A 

; VERGLEICHSERGEBNIS (1.CP > 2.OP, A=FF, CY=1 ; 1.OP = 2.OP, A=0 UND 1.OP < 2.OP 

A-l ) 






UMFORMEN: 

25B9 

8F 



ADC 

A 

(1.0P > 2.OP, A=1, 1.0P = 2.OP, A=2, 1.OP < 2.OP, A=4) 

25BA 

CI 



POP 

BC 

VERGLEICHSOPERATORCODE ZURUECK (BIT 0 FUER >, BIT 1 FUER = UND BIT 2 FUER < 

GESETZT l 





25BB 

AO 



AND 

B 

STIMMT EIN BIT UEBEREIN? 

25BC 

C6 

FF 


ADD 

FF 

JA, CY=1 

25be 

9F 



SBC 

A 

UND FOLGLICH A=FF 

25BF 

CD 

8D 

09 

CALL 

098D 

A ALS INTEGER NACH X 

25C2 

18 

12 


JR 

25D6 

WEITER 





NOT AUSFUEHREN 


25C4 

16 

5A 


LD 

D,5A 

NOT-LEVEL NACH D 

25C6 

CD 

3A 

23 

CALL 

233A 

AUSDRUCK MIT PRIORITAET AUSWERTEN 

25C9 

CD 

7F OA 

CALL 

0A7F 

ERGEBNIS IN INTEGER UMWANDELN 

25CC 

7D 



LD 

A,L 

UND BITWEISE KOMPLEMENTIEREN 

25CD 

2F 



CPL 


(LSB) 

25CE 

6F 



LD 

L,A 
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25ÜF~7 C 


TD- 

— A",M 


25DO 2F 


CP1 

» 

(MSB) 

25D1 67 


LD 

H,A 


25D2 22 

21 41 

LD 

(4121),HL ; 

UND KOMPLEMENT NACH X 

25D5 CI 


POP 

BC ; 

LASTLEVEL ZURUECK 

25D6 C3 

46 23 

JP 

2346 ; 

WEITER 


UP 

TYPCHK 

(AP) 




RST 20 

-UP: TESTET TYP 

DES X-REGISTER INHALTS 



I:(40AP)=TYPX 




0:A=TYPX - 3 




INTEGER: S=1, P=1, C 

= 1 



SINGLE: C=1 




DOUBLE: P=1 




STRING: Z=1, C=1, I 

= 1 

25D9 3A AP 40 

LD 

A,(40AF) 

TYPX LADEN 

25DC PE 

08 

CP 

08 

DOUBLE? 

25DE 30 

05 

JR 

NC.25E5 

JA 

25EO D 6 

03 

SUB 

03 

TYPX - 3 NACH A 

25E2 B7 


OR 

A 

FLAG SETZEN (S.O.) 

25E3 37 


SCP 


CY SETZEN 

25E4 C9 


RET 



25E5 D 6 

03 

SUB 

03 

TYPX - 3 NACH A 

25E7 B7 


OR 

A 

FLAGS SETZEN (S.O.) 

25E8 C9 


RET 





AND/OR AUSFUEHREN 


25E9 C5 


PUSH 

BC 

LASTLEVEL RETTEN 

25EÄ CD 

7F OA 

CALL 

0A7F 

2.OPERANDEN IN INTEGER UMWANDELN 

25ED PI 


POP 

AF 

LEVEL NACH AP ZURUECK 

25EE Dl 


POP 

DE 

1.OPERAND ZURUECK 

25EF 01 

PA 27 

LD 

BC,27FA 

RUECKSPRUNGADRESSE SETZEN 

25P2 C5 


PUSH 

BC 

(A NACH H, HL NACH X) 

25P3 PE 46 

CP 

46 

AND? 

25F5 20 

06 

JR 

NZ,25FD 

JA 

25P7 7B 


LD 

A,E 

BEIDE OPERANDEN BITWEISE ODER-VERKNUEPFEN 

25P8 B5 


OR 

L 

(LSB) 

25P9 6 P 


LD 

L,A 


25PÄ 7C 


LD 

A,H 


25PB B2 


OR 

D 

(MSB) 

25PC C9 


RET 


WEITER BEI 27FA 

25PD 7B 


LD 

A,E 

BEIDE OPERANDEN BITWEISE UND-VERKNUEPFEN 

25PE A5 


AND 

L 

(LSB) 

25FF 6 P 


LD 

L,A 


2600 7C 


LD 

A.H 


2601 A2 


AND 

D 

(MSB) 

2602 C9 


RET 


WEITER BEI 27PA 



VERWALTUNG DER VARIABLENTABELLE 



WEITERE ARGUMENTE VON 

DIM 

2603 2B 


DEC 

HL 

POINTER DEC. 

2604 D7 


RST 

10 

NAECHSTES ZEICHEN, ANWEISUNGSENDE? 

2605 C 8 


RET 

Z 

JA, FERTIG 

2606 CP 


RST 

08 

SYNTAXCHECK: POINTER AUF ','? 

2607 2C 




9 


** 

DIM-ANWEISUNG 




FELDER 

EINRICHTEN 


2608 01 

03 26 

LD 

BC,2603 

RUECKSPRUNGADRESSE PUER NAECHSTES ARGUMENT SETZEN 

260B C5 


PUSH 

BC 


260C P 6 

AP 

OR 

AP 

DIMFLAG SETZEN 


UP 

SV AR 

(ap,bc,de,hl=p) 




VARIABLE IN TABELLE SUCHEN UND EINRICHTEN, WENN NICHT VORHANDEN 



(WENN ANSPRUNG NICHT VON AUSDRUCKSANALYSE (2439) ODER VARPTR (24F1)) 



I: HL 

..=VARIABLENNAME 



0:DE=VARTABADRESSE DER VARIABLE (DE ZEIGT AUF ERSTES BYTE DES WERTES) 

(260D 

AP 

XOR 

A 

(DIM-PLAG LOESCHEN 

260E 32 

AE 40 

LD 

(40AE) , A 

DIM-PLAG ABSPEICHERN 



NAMEN 

ERMITTELN 


2611 46 


LD 

B,(HL) 

1.ZEICHEN DES VARNAMEN NACH B 

2612 CD 

3D IE 

CALL 

1E3D 

BUCHSTABE? 

2615 DA 

97 19 

JP 

C,1997 

NEIN, SN-ERROR 

2618 AP 


XOR 

A 

2.ZEICHEN LOESCHEN 

2619 4P 


LD 

C.A 


261Ä D7 


RST 

16 

NAECHSTES ZEICHEN, ZIPPER? 

261B 38 05 

JR 

C,2622 

JA 

261D CD 

3D IE 

CALL 

1E3D 

BUCHSTABE? 

2620 38 09 

JR 

C,262B 

NEIN, VARNAME NUR EIN ZEICHEN LANG 

2622 4P 


LD 

C.A 

2.ZEICHEN NACH C 

2623 D7 


RST 

16 

NAECHSTES ZEICHEN, ZIPPER? 

2624 38 PD 

JR 

C.2623 

JA, NAECHSTES ZEICHEN 

2626 CD 

3D IE 

CALL 

1E3D 

BUCHSTABE? 

2629 30 F 8 

JR 

NC,2623 

JA, NAECHSTES ZEICHEN 



TYP ERMITTELN 


262B 11 

52 26 

LD 

DE,2652 

; RUECKSPRUNGADRESSE SETZEN 

262E D5 


PUSH 

DE 


262P 16 

02 

LD 

D,02 

TYPCODE (D) = INTEGER 

2631 PE 

25 

CP 

25 

= '#'? 

2633 C 8 


RET 

Z 

JA, FERTIG 

2634 U 


INC 

D 

TYPCODE = STRING 

2635 PE 

24 

CP 

24 

= '$'? 

2637 C 8 


RET 

Z 

FERTIG 

2638 14 


INC 

D 

TYPCODE = SINGLE 

2639 PE 

21 

CP 

21 

= '! 

263B C 8 


RET 

Z 

FERTIG 

263C 16 

08 

LD 

D,08 

TYPCODE = DOUBLE 
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2640 C8 


2641 78 

2642 D6 
2644 E6 

2646 5F 

2647 16 

2649 E5 
264A 21 
264D 19 
264E 56 
264F El 

2650 2B 

2651 C9 

2652 7A 

2653 32 

2656 D7 

2657 3A 
265A B7 
265B C2 
265E 7E 
265F D6 
2661 CA 

2664 AF 

2665 32 

2668 E5 

2669 D5 
266A 2A 
266D EB 
266E 2A 

2671 DF 

2672 El 

2673 28 

2675 1A 

2676 6F 

2677 BC 

2678 13 

2679 20 
267B 1A 
267C B9 
267D 20 
267F 13 

2680 1A 

2681 B8 

2682 CA 
2685 3E 
(2686 

2687 13 

2688 E5 

2689 26 
268B 19 
268C 18 


268E 7C 
268F El 

2690 E3 

2691 F5 

2692 D5 

2693 11 
2696 DF 


269C DF 
269D Dl 


;FERTIG 


Fl 

E3 

E5 

C5 

4F 

06 00 

C5 

03 

03 

03 

2A FD 40 

E5 

09 

CI 

E5 

CD 55 19 
El 

22 FD 40 
60 
69 

22 PB 40 
2B 

36 00 
DF 

20 FA 

Dl 

73 

23 
Dl 



TYPCODE 

AUS TABELLE ENTNEHMEN 


LD 

A,B 

STELLUNG DES 1.BUCHSTABEN IM ALPHABET ERMITTELN 

41 

SUB 

41 


7F 

AND 

7F 

BIT 7 (MARKIERUNG VON FUNKTIONSNAMEN) ENTFERNEN 


LD 

E,A 

NACH DE 

00 

LD 

D,00 



PUSH 

kL 

POINTER RETTEN 

01 41 

LD 

HL,4101 

TYPCODETABANFANG LADEN 


ADD 

HL. DE 

+ OFFSET ERGIBT ZEIGER AUF RICHTIGES BYTE 


LD 

D, (HL) 

TYPCODE LADEN 


POP 

HL 

POINTER ZURUECK 


DEC 

HL 

UND DEC., DA KEINE EXPLIZITE TYPANGABE 


RET 


WEITER BEI 2652 


LD 

A,D 

TYPCODE NACH TYPX 

AF 40 

LD 

(40AF),A 



RST 

10 

NAECHSTES ZEICHEN 

DC 40 

LD 

A, (40DC) 

ARRAYS GESPERRT? 


OR 

A 

(FUER LAUFVARIABLEN) 

64 26 

JP 

NZ.2664 

JA 


LD 

A, (HL) 

ZEICHEN LADEN 

28 

SUB 

2k 

= '('? 

E9 26 

JP 

Z,26E9 

JA, ARRAYVARIABLE 


XOR 

A 

ARRAYSPERRUNG AUFHEBEN 

DC 40 

LD 

(40DC),A 



PUSH 

HL 

POINTER RETTEN 


PUSH 

DE 

TYPCODE RETTEN 

F9 40 

LD 

HL,(40F9) 

ANFANG DER VARIABLENTABELLE NACH DE 


EX 

DE, HL 


FB 40 

LD 

HL,(40FB) 

ANFANG DER ARRAYTABELLE NACH HL 


RST 

18 

ENDE DER VARTABELLE ERREICHT? 


POP 

HL 

TYP NACH H ZURUECK 

19 

JR 

Z,268E 

JA, NICHT GEFUNDEN 


LD 

A, (DE) 

TYP AUS TABELLE LADEN 


LD 

L,A 

NACH L 


CP 

H 

STIMMT MIT TYP GESUCHTER VARIABLER UEBEREIN? 


INC 

DE 

VARTABZEIGER INC. 

OB 

JR 

NZ.2686 

NEIN, NAECHSTES VARIABLE 


LD 

A,(DE) 

2.ZEICHEN AUS TABELLE 


CP 

C 

= 2.ZEICHEN GESUCHTER VARIABLER? 

07 

JR 

NZ,2686 

NEIN, NAECHSTE VARIABLE 


INC 

DE 

VARTABZEIGER AUF 1.ZEICHEN 


LD 

A, (DE) 

1.ZEICHEN AUS TABELLE 


CP 

B 

= 1.ZEICHEN GESUCHTER VARIABLER? 

CC 26 

JP 

Z,26CC 

JA, VARIABLE GEFUNDEN 

13 

LD 

A,13 


13 

INC 

DE 

VARTABZEIGER AUF 1.ZEICHEN) 


INC 

DE 

VARTALZEIGER AUF WERT 


PUSH 

HL 

TYP GESUCHTER'VARIABLER RETTEN (IN H) 

00 

LD 

H,00 

VARTABZEIGER UM TYP ERHOEHEN 


ADD 

HL, DE 


DF 

JR 

266D 

WEITER 


VARIABLE NICHT IN TABELLE 


LD 

A,H 

TYP NACH A 


POP 

HL 

POINTER ZURUECK 


EX 

(SP),HL 

MIT RUECKSPRUNGADRESSE VERTAUSCHEN 


PUSH 

AF 

TYP RETTEN 


PUSH 

DE 

VARTABENDE RETTEN 

Fl 24 

LD 

DE,24F1 

RUECKSPRUNGADRESSE = 24F1 ? 


RST 

18 

(AUFRUF VON VARPTR) 

36 

JR 

Z,26CF 

JA 

43 25 

LD 

DE,2543 

RUECKSPRUNGADRESSE = 2543? 


RST 

18 

(AUFRUF VON AUSDRUCKSANALYSE) 


POP 

DE 

VARTABENDE ZURUECK 

35 

JR 

Z.26D5 

JA 


VARIABLE EINRICHTEN 


AF 

(SP),HL 

HL 

BC 

C,A 

B,00 

BC 

BC 

BC 

BC 

HL,(40FD) 
HL 

HL,BC 

BC 

HL 

1955 

HL 

(40FD),HL 

H,B 

L,C 

(40FB),HL 
HL 

(HL),00 
18 

NZ,26BE 
DE 

(HL),E 

HL 

DE 


TYP NACH A ZURUECK 

RUECKSPRUNGADRESSE WIEDER IN STACK, POINTER ZURUECK 
POINTER RETTEN 
VARNAME RETTEN 
TYP NACH C 

(LAENGE DES WERTES NACH BC) 

RETTEN 

+ 3 ERGIBT GESAMTLAENGE 


ARRAYTABELLENENDE LADEN 
UND RETTEN 

GESAMTLAENGE ADDIEREN 

WERTLAENGE ZURUECK 

NEUES ARRAYTABELLENENDE RETTEN 

PLATZ FUER VARIABLE DURCH VERSCHIEBEN DER ARRAYTABELLE MACHEN 
NEUES ARRAYTABELLENENDE ZURUECK 
UND ABSPEICHERN 

NEUER ARRAYTABELLEANFANG NACH BC 

UND ABSPEICHERN 

VARIABLE LOESCHEN 

(DE BEINHALTET VARTABADRESSE) 

FERTIG? 

NEIN, WEITER 
TYP NACH E ZURUECK 
ABSPEICHERN 
ZEIGER INC. 

NAME ZURUECK 
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2BC8~73 

26C9 23 

-LD- 

INC 

(HL),E- 

HL 

ABSrEiGflEKN: 2. ZEICHEN .... 

ZEIGER INC. 

26CA 72 

LD 

(HL),D 

1 .ZEICHEN 

26CB EB 

EX 

DE, HL 

WERTADRESSE NACH DE 

26CC 13 

INC 

DE 


26CD El 

26CE C9 

POP 

RET 

HL 

; POINTER ZURUECK 

26CF 57 

VARPTR- 

-VARIABLE NICHT 

IN TABELLE 

LD 

D,A 

; VARTABADRESSE = 0 

26DO 5F 

LD 

E,A 

; (FLAG FUER VARPTR) 

26D1 Fl 

POP 

AF 

; STACK KORRIGIEREN 

26D2 Fl 

POP 

AF 


26D3 E3 

26D4 C9 

EX 

RET 

(SP),HL 

;RUECKSPRUNGADRESSE RETTEN, POINTER ZURUECK 


26D5 32 24 41 
26D8 CI 
26D9 67 
26DA 6F 
26DB 22 21 41 
26DE E7 
26DP 20 06 
26E1 21 28 19 
26E4 22 21 41 
26E7 El 
26E8 C9 


VARIABLE IN AUSDRUCK NICHT IN TABELLE 


(4124),A 
BC 
H,A 
L,A 

(4121),HL 
20 

NZ.26E7 


llbnx ±JN XAÜEi.ULil!, 

X=0, LEERSTRING: X 
STACKKORREKTUR 
X=0, FUER INTEGER 
(HL = 0) 

(HL NACH X) 


= 0, FUER SINGLE UND DOUBLE 


LD 

LD 

POP 


HL,1928 
(4121 ),HL 
HL 


;STRINGZEIGER AUF LEERSTRING NACH X 
;POINTER ZURUECK 


RET 


;SOFORT ZUR AUSDRUCKSANALYSE, DA RUECKSPRUNGADRESSE NICHT ZURUECK 


26E9 E5 
26EA 2A AE 40 
26ED E3 
26EE 57 
26EF D5 
26F0 C5 
26F1 CD 45 IE 
26F4 CI 
26F5 Fl 
26F6 EB 
26F7 E3 
26F8 E5 
26F9 EB 
26FA 3C 
26FB 57 
26FC 7E 
26FD FE 2C 
26FF 28 EE 

2701 CF 

2702 29 

2703 22 F3 40 

2706 El 

2707 22 AE 40 
270A D5 

270B 2A FB 40 
270E 3E 19 
(270F 

2710 EB 

2711 2A FD 40 

2714 EB 

2715 DF 

2716 3A AF 40 

2719 28 27 
271B BE 
271C 23 
271D 20 08 
271F 7E 

2720 B9 

2721 23 

2722 20 04 

2724 7E 

2725 B8 

2726 3E 23 

(2727 23 

2728 23 

2729 5E 
272A 23 
272B 56 
272C 23 
272D 20 EO 


ARRAYVERWALTUNG 
PUSH HL 

LD HL.(40AE) 

EX (SP),HL 

LD D,A 

PUSH DE 

PUSH BC 

CALL 1E45 

POP BC 

POP AF 

EX DE,HL 

EX (SP),HL 

PUSH HL 

EX DE,HL 

INC A 

LD D,A 

LD A,(HL) 

CP 2C 

JR Z,26EF 

RST 08 

LD (40F3),HL 

POP HL 

LD (40AE),HL 

PUSH DE 

LD HL, (40FB) 

LD A,19 

ADD HL,DE 

EX DE,HL 

LD HL,(40FD) 

EX DE,HL 

RST 18 

LD A,(40AF) 

JR Z,2742 

CP (HL) 

INC HL 

JR NZ.2727 

LD A,(HL) 

CP C 

INC HL 

JR NZ.2728 

LD A,(HL) 

CP B 

LD A,23 

INC HL 

INC HL 

LD E,(HL) 

INC HL 

LD D,(HL) 

INC HL 

JR NZ,270F 


POINTER RETTEN 
DIM-FLAG UND TYP LADEN 
RETTEN (WEGEN REKURSIVITAET) 

DIMZAEHLER = 0 
DIMZAEHLER RETTEN 
VARNAME RETTEN 

INDEXAUSDRUCK AUSWERTEN, GANZZAHLIGES ERGEBNIS (< 32768D) NACH DE 
VARNAME ZURUECK 
DIMZAEHLER NACH A ZURUECK 
INDEX NACH HL 

FLAG ZURUECK UND INDEX RETTEN 
DIM-FLAG UND TYP RETTEN 
POINTER ZURUECK 
DIMZAEHLER + 1 
NACH D 

ZEICHEN LADEN 


•JA,'WEITER 

; SYNATXCHECK: POINTER AUF 

) 

;POINTER ABSPEICHERN 
;DIM-FLAG UND TYP ZURUECK 
;UND ABSPEICHERN 
;DIMZAEHLER RETTEN 
;ARRAYTABANFANG LADEN 


')'? 


;ARRAYLAENGE AUF ARRAYTABZEIGER ADDIEREN) 
;ENDE DER ARRAYTABELLE ERREICHT? 


TYP NACH A 
JA, NICHT GEFUNDEN 
= TYP AUS TABELLE? 
ARRAYTABZEIGER INC. 

NEIN, NAECHSTES ARRAY 
2.ZEICHEN AUS TABELLE 
= 2.ZEICHEN GESUCHTEN ARRAYS? 
ARRAYTABZEIGER INC. 

NEIN, NAECHSTES ARRAY 
1.ZEICHEN AUS TABELLE 
= 1.ZEICHEN GESUCHTEN ARRAYS? 

ARRAYTABZEIGER AUF 1.ZEICHEN) 
ARRAYTABZEIGER AUF ARRAYLAENGE 
ARRAYLAENGE LADEN 

(MSB) 

ARRAYTABZEIGER INC. 

NEIN, NAECHSTES ARRAY 


ARRAY GEFUNDEN 

272F 3A AE 40 LD A,(40AE) 

2732 B7 OR A 

2733 IE 12 LD E,12 

2735 C2 A2 19 JP NZ,19A2 

2738 Fl POP AF 

2739 96 SUB (HL) 

273A CA 95 27 JP Z,2795 


;DIM-FLAG GESETZT? 

;DD-ERROR-CODE NACH E 
;JA, DD-ERROR 
;DIMZAEHLER NACH A 

;= ANZAHL DER DIMENSIONEN IN GEFUNDENEN ARRAY? 
;JA, WEITER 


BS-ERROR 

273D IE 10 LD E,10 ;BS-ERROR-CODE NACH E 

273F C3 A2 19 JP 19A2 ;ZUR FEHLER-ROUTINE 


NEUES ARRAY EINRICHTEN 

2742 77 LD (HL),A ;TYP ABSPEICHERN 

2743 23 INC HL ;ARRAYTABZEIGER INC. 

2744 5F LD E,A ;LAENGE EINES ELEMENTES (=TYP) NACh DE 

2745 16 00 LD D,00 
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?wr 

"FT" 



PÜP- 

~ffF- 

;D1MZAEHLEH NACH A ZURUECK 

2748 

71 



LD 

(HL),c 

{ARRAYNAMEN ABSPEICHERN: 2.ZEICHEN 

2749 

23 



INC 

HL 

;ARRAYTABZEIGER INC. 

274A 

70 



LD 

(hl),b 

;1.ZEICHEN 

274B 

23 



INC 

HL 

;ARRAYTABZEIGER INC. 

274C 

4P 



LD 

C,A 


274D 

CD 

63 

19 

CALL 

1963 

;KEINE 2 * DIMZAEHLER BYTES FREI? —> OM-ERROR 

2750 

23 



INC 

HL 

;AhRAYTABZEIGER UEBER ARRAYLAENGE 

2751 

23 



INC 

HL 

;(WIRD VORLAEUFIG UEBERGANGEN) 

2752 

22 

D8 

40 

LD 

(40D8),HL 

; ARRAYTABZEIGER. ABSPEICHERN 

2755 

71 



LD 

(HL),C 

;DIMZAEHLER ABSPEICHERN 

2756 

23 



INC 

HL 

;ARRAYTABZEIGER INC. 

2757 

3A 

AE 

40 

LD 

A,(40AE) 

;DIM-FLAG IN CY 

275A 

17 



RLA 



275B 

79 



LD 

A,C 

;DIMZAEHLER NACH A 

275C 

01 

OB 

00 

LD 

BC,OOOB 

;TIEFE DER DIMENSION = 11D 

275F 

30 02 


JR 

NC,2763 

;KEIN DIM? —> SPRUNG 

2761 

CI 



POP 

BC 

;TIEFE DER DIMENSION AUS STACK NACH BC 

2762 

03 



INC 

BC 

;+ 1 (FUER NULLINDEX) 

2763 

71 



LD 

(EL),C 

;ABSPEICHERN 

2764 

23 



INC 

HL 

;ARRAYTABZEIGER INC. 

2765 

70 



LD 

(HL) ,B 

;(MSB) 

2766 

23 



INC 

HL 

;ARRAYTABZEIGER INC. 

2767 

F5 



PUSH 

AF 

;DIMZAEHLER RETTEN 

2768 

CD 

AA 

OB 

CALL 

OBAA 

;LETZTE ARRAYWERTELAENGE * DIMENSIONSTIEFE 







;(AM ANFANG = LAENGE EINES WERTES = TYP) 

276B 

Fl 



POP 

AF 

;DIMZAEHLER ZURUECK 

276C 

3D 



DEC 

A 

;ALLE DIMENSIONEN BEARBEITET? 

276D 

20 

ED 


JR 

NZ,275C 

;NEIN, WEITER 

276P 

F5 



PUSH 

AF 

{DIM-FLAG (CY) RETTEN 

2770 

42 



LD 

B,D 

;ARRAYWERTELAENGE NACH BC 

2771 

4B 



LD 

C,E 


2772 

EB 



EX 

DE, HL 

;AUF ARRAYTABZEIGER (ZEIGT JETZT AUF ANFANG DER WERTE) 

2773 

19 



ADD 

HL,DE 

{ADDIEREN, UEBERLAUF? 

2774 

38 

C7 


JR 

C,273D 

;JA, BS-ERROR 

2776 

CD 

6C 

19 

CALL 

1§6C 

{NICHT MEHR GENUEGEND SPEICHER FREI? —> OM-ERROR 

2779 

22 

FD 

40 

LD 

(40FD),HL 

{NEUE ARRAYTABENDE ABSPEICHERN 

277C 

2B 



DEC 

HL 

{ARRAYWERTE LOESCHEN: ZEIGER DEC. 

277D 

36 

00 


LD 

(HL),00 

;0 EINSCHREIBEN 

277F 

DF 



RST 

18 

{ARRAYWERTEANFANG ERREICHT? 

2780 

20 

FA 


JR 

NZ,277C 

{NEIN, WEITER 

2782 

03 



INC 

BC 

{ARRAYWERTELAENGE + 1 (FUER DIMZAEHLER) 

2783 

57 



LD 

D.A 

;0 NACH D 

2784 

2A 

D8 

40 

LD 

HL. 40D8) 

{ZEIGER AUF DIMZAEHLER LADEN 

2787 

5E 



LD 

E, (HL ) 

{DIMZAEHLER NACH E 

2788 

EB 



EX 

DE, HL 

{NACH HI. 

2789 

29 



ADD 

HL, HL 

;* 2 

278A 

09 



ADD 

HL,BC 

;+ 2 * DIMZAEHLER ERGIBT WAHRE ARRAYLAENGE IN HL 

278B 

EB 



EX 

DE, HL 

{NACH DE 

278C 

2B 



DEC 

HL 

{ARRAYTABZEIGER AUF ARRAYLAENGE 

278D 

2B 



DEC 

HL 


278E 

73 



LD 

(HL),E 

{ARRAYLAENGE ABSPEICHERN 

278F 

23 



INC 

HL 

{ARRAYTABZEIGER INC. 

2790 

72 



LD 

(HL),D 

{(MSB) 

2791 

23 



INC 

HL 

{ARRAYTABZEIGER INC. 

2792 

Fl 



POP 

AF 

{DIM-FLAG ZURUECK, DIM? 

2793 

38 

30 


JR 

C,27C5 

;JA, FERTIG 





ADRESSE 

EINES ARRAYELEMENTES ERMITTELN 

2795 

47 



LD 

B,A 

{ARRAYOFFSET = 0 

2796 

4F 



LD 

C, A 


2797 

7E 



LD 

A, (HL) 

{ANZAHL DER DIMENSIONEN NACH A 

2798 

23 



INC 

HL 

{ARRAYTABZEIGER AUF TIEFE DER 1.DIMENSION 

2799 

16 

El 


LD 

D.E1 


279A 

El 


POP 

HL 

{ARRAYTABZEIGER ZURUECK) 

279B 

5E 



LD 

E, (HL) 

{DIMENSIONSTIEFE LADEN 

279C 

23 



INC 

HL 

{ARRAYTABZEIGER INC. 

279D 

56 



LD 

D, (HL) 

; (MSB) 

279E 

23 



INC 

HL 


279F 

E3 



EX 

(SP),HL 

{ARRAYTABZEIGER RETTEN, INDEX NACH HL 

27A0 

F5 



PUSH 

AF 

{DIMZAEHLER RETTEN 

27A1 

DF 



RST 

18 

{INDEX >= TIEFE DER DIMENSION? 

27 A2 

D2 

3D 

27 

JP 

NC.273D 

;JA, BS-ERROR 

27A5 

CD 

AA 

OB 

CALL 

OBAA 

{ARRAYOFFSET * TIEFE DER DIMENSION 

27 A8 

19 



ADD 

HL, DE 

;+ INDEX ERGIBT NEUEN ARRAYOFFSET 

27A9 

Fl 



POP 

AF 

{DIMZAEHLER ZURUECK 

27AA 

3D 



DEC 

A 

{ALLE DIMENSIONEN VERARBEITET? 

27AB 

44 



LD 

B,H 

{NEUEN ARRAYOFFSET NACH BC 

27 AC 

4D 



LD 

C,L 


27AD 

20 

EB 


JR 

NZ.279A 

{NEIN, WEITER 

27AP 

3A AF 

40 

LD 

A,(40AF) 

{ARRAYOFFSET * WERTLAENGE: TYPX LADEN 

27B2 

44 



LD 

B,H 

{NEUEN ARRAYOFFSET NACH BC 

27B3 

4D 



LD 

C,L 


27B4 

29 



ADD 

HL,HL 

;2 * ARRAYOFFSET NACH HL 

27B5 

Db 

04 


SUB 

04 

{STRING ODER INTEGER? 

27B7 

38 04 


JR 

C.27BD 

;JA 

27B9 

29 



ADD 

HL.HL 

;4 * ARRAYOFFSET NACH HL 

27BA 

28 

06 


JR 

Z.27C2 

{SINGLE? —> SPRUNG 

27BC 

29 



ADD 

HL, HL 

{DOUBLE: 8 * ARRAYOFFSET NACH HL 

27BD 

B7 



OR 

A 

{INTEGER ODER DOUBLE? 

27BE 

E2 

C2 

27 

JP 

P0,27C2 

;JA 

27C1 

09 



ADD 

HL,BC 

{STRING: 3 * ARRAYOFFSET NACH HL 

27C2 

CI 



POP 

BC 

{ARRAYWERTEANFANG NACH BC 

27C3 

09 



ADD 

HL,BC 

{TYP * ARRAYOFFSET ADDIEREN 

27C4 

EB 



EX 

DE, HL 

{DIE DARAUS ERGEBENDE ADRESSE DES ELEMENTES NACH DE 

27C5 

2A F3 

40 

LD 

HL,(40F3) 

{POINTER LADEN 

27C8 

C9 



RET 




** MEM-PUNKTION 


Seite 73 







ROM-Listing für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 
ERGIBT GROESSe DES FREIENTIPETCHEES 


27C9 AF 



XOR 

A 

TYPX = 0 (DAMIT KEIN FRE(A$)) 

27CA E5 



PUSH 

HL 

POINTER RETTEN 

27CB 32 

AF 

40 

LD 

(40AF),A 

TYP ABSPEICHERN 

27CE 

CD 

D4 

27 

CALL 

27D4 

FRE AUFRUFEN 

27D1 

El 



POP 

HL 

POINTER ZURUECK 

27D2 

D7 



RST 

10 

NAECHSTES ZEICHEN 

27D3 

C9 



RET 






** 

FRE-FUNKTION 






ERGIBT 

GROESSE DES FREIEN SPEICHERS ODER DER FREIEN STRINGSPACE 

27D4 

2A 

FD 

40 

LD 

HL,(40FD) 

ANFANG DES FREIEN SPEICHERS NACH HL 

27D7 

EB 



EX 

DE, HL 

NACH DE 

27D8 

21 

00 

00 

LD 

HL,0000 

STACKPOINTER NACH HL 

27DB 

39 



ADD 

HL, SP 


27DC 

E7 



RST 

20 

TYP TESTEN, STRING? 

27DD 

20 

OD 


JR 

NZ,27EC 

NEIN 

27DF 

CD 

DA 29 

CALL 

29DA 

ARGUMENTSTRING AUS ZWISCHENSPEICHER UND STRINGSPACE LOESCHEN 

27E2 

CD 

E6 

28 

CALL 

28E6 

STRINGSPACE UMSORTIEREN, UEBERFLUESSIGE STRINGS ENTFERNEN 

27E9 

2A 

AO 

40 

LD 

HL,(40A0) 

STRINGSPACEA’^ANG - 1 NACH DE 

27E8 

EB 



EX 

DE, HL 


27E9 

2A 

D6 

40 

LD 

HL,(40D6) 

ZEIGER AUF LETZTES FREIE BYTE NACH HL 

27EC 

7D 



LD 

A,L 

DIFFERENZ DER BEIDEN GROESSEN ERGIBT 

27ED 

93 



SUB 

E 

JEWEILS FREIEN SPEICHER 

27EE 

6F 



LD 

L,A 


27EF 

7C 



LD 

A,H 

(MSB) 

27FO 

9A 



SBC 

D 

27F1 

67 



LD 

H,A 

HL (INTEGER OHNE SIGN) ALS SINGLE NACH X, FERTIG 

27F2 

C3 

66 

OC 

JP 

OC66 




** 

POS-FUNKTION 






ERGIBT 

CURSORPOSITON 


27F5 

3A A6 

40 

LD 

A,(40A6) 

CURSORPOSITION LADEN 


UP ILDXA (AF=0044,HL) 

ZAHL ALS INTEGER (OHNE SIGN) NACH X 
I:A=ZAHL 


0:HL, X=ZAHL 


27F8 6F 

• ILU y 

LD 

A —ZjiTJQJJ 

L,A 

;NACH L 

27F9 AF 

XOR 

A 

;A = 0 

27FA 67 

LD 

H,A 

;H = 0 

27FB C3 9A OA 

JP 

0A9A 

;HL NACH X ALS INTEGER 


** USR-FUNKTION 

RUPT MASCHINENPROGRAMME AUF 

ALS PARAMETER WERDEN AUSSER DEM ARGUMENT IN X, DER TYP IN A UND BEI STRINGS 
DER STRINGZEIGER IN DE UEBERGEBEN 


27FE CD A9 41 

CALL 

41A9 

DISK-BASIC-AUFRUF FUER USR N 

2801 D7 

RST 

10 

NAECHSTES ZEICHEN 

2802 CD 2C 25 

CALL 

252C 

ARGUMENTAUSDRUCK AUSWERTEN 

2805 E5 

PUSH 

HL 

POINTER RETTEN 

2806 21 90 08 

LD 

HL,0890 

RUECKSPRUNGADRESSE SETZEN 

2809 E5 

PUSH 

HL 

(POP HL, POINTER ZURUECK) 

280Ä 3Ä AF 40 

LD 

A,(40AF) 

ARGUMENT STRING? 

280D F5 

PUSH 

AF 

TYPX RETTEN 

280E FE 03 

2810 CC DA 29 

CP 

CALL 

03 

Z,29DA 

JA, LETZTEN STRING AUS ZWISCHENSPEICHER UND STRINGSPACE ENTFERNEN 

2813 Fl 

POP 

AF 

TYPX ZURUECK 

2814 EB 

EX 

DE, HL 

STRINGZEIGER NACH DE 

2815 2A 8E 40 

LD 

HL,(408E) 

(HL) 

USR-UNTERPROGRAMM-STARTADRESSE LADEN 

2818 E9 

JP 

;UND UNTERPROGRAMM ANSPRINGEN 


UP CXTYPA (AF,BC,DE) 

WERT IN GEWUENSCHTEN TYP UMWANDELN 
I:A=GEWUENSCHTER TYP 


X=WERT 

0:X=WERT IM GEWUENSCHTEN TYP 


2819 E5 



PUSH 

HL 

HL RETTEN 

281Ä E6 

07 


AND 

07 

TYP = DOUBLE? —> 0 ALS TABOFFSET 

281C 21 

AI 

18 

LD 

HL,18A1 

ANFANG DER SPRUNGTABELLE FUER TYPUMWANDLUNG 

281F 4F 



LD 

C,Ä 

TABOFFSET (=TYP, AUSSER BEI DOUBLE (0)) 

2820 06 

00 


LD 

B,00 

NACH BC 

2822 09 



ADD 

HL,BC 

AUF TABANFANG ADDIEREN 

2823 CD 

86 

25 

CALL 

2586 

NOCHMAL ADDIEREN, ADRESSE LADEN UND ANSPRINGEN 

2826 El 



POP 

HL 

HL ZURUECK 

2827 C9 



RET 






DIREKTMODE TESTEN 


2828 E5 



PUSH 

HL 

POINTER RETTEN 

2829 2A 

A2 

40 

LD 

HL,(40A2) 

AKTUELLE ZNR LADEN 

282C 23 



INC 

HL 

= FFFF ? 

282D 7C 



LD 

A,H 

(DIREKTMODE) 

282E B5 



OR 

L 


282F E"1 



POP 

HL 

POINTER ZURUECK 

2830 CO 



RET 

NZ 

NEIN, ZURUECK 




ID-ERROR 


2831 IE 

16 


LD 

E, 16 

ID-ERROR-CODE NACH E 

2833 C3 

A2 

19 

JP 

19A2 

ZUR FEHLER-ROUTINE 



** 

STR$-FUNKTION 





ZAHL 

IN STRING UMFORMEN 

2836 CD 

BD 

OF 

CALL 

OFBD 

ZAHL IN STRING UMFORMEN 

2839 CD 


28 

CALL 

2865 

STRING IN ZWISCHENSPEICHER UND X UEBERNEHMEN 

283C CD 

DA 

29 

CALL 

29DA 

STRING AUS ZWISCHENSPEICHER LOESCHEN 

283F 01 

2B 

2A 

LD 

BC,2A2B 

RUECKSPRUNGADRESSE SETZEN 

2842 C5 



PUSH 

BC 


2843 7E 



LD 

A,(HL) 

STRINGLAENGE NACH k 

2844 23 



INC 

HL 

STRINGZEIGER NACH INC. 
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2843 

E5 




PUSH' ' 

HE 

STK1NGZE1GER' RETTEN- 

2846 

CB 

BF 

28 


CALL 

28BF 

PLATZ FUER STRING MIT LAENGE A IN STRINGSPACE FREIMACHEN 

2849 

El 




POP 

HL 

STRINGZEIGER ZURUECK 

284A 

4E 




LL 

c,( hl) 

STRINGADRESSE LADEN 

284B 

23 




INC 

HL 

STPINGZEIGER INC. 

284C 

46 




LD 

B,(HL) 

(MSB) 

284D 

CD 

5A 

28 


CALL 

285A 

STRINGSPACEADRESSE IN VORLAEUFIGEN ZWISCHENSPEICHER UEBERTRAGEN 

2850 

E5 




PUSH 

HL 

ADRESSE DES VORLAEUFIGEN ZWISCHENSPEICHERS (40D3) RETTEN 

2851 

6F 




LL 

L,A 

STRINGLAENGE NACH L 

2852 

CD 

CE 

29 


CALL 

29CE 

STRING IN STRINGSPACE ÜBERNEHMEN 

2855 

Dl 




POP 

DE 

ADRESSE DES VORLAUEFIGEN ZWISCHENSPEICHER ZURUECK 

2856 

C9 




RET 


ZWISCHENSPEICHER IN X UEBERNEHMEN, FERTIG 





UP 

STEMPS 

(F.BC,DE,HL) 







ERMITTELT STRINGSPACEADRESSE UND LEGT SIE IM VORL. ZWISCHENSPEICHER AB 






I:A=STRINGLAENGE 

0:DE=STRINGADRESSE IN 

STRINGSPACE 






HL-ADRESSE DES VORLAEUFIGEN ZWISCHENSPEICHERS 

STRINGLAENGE UND STRINGSPACEADRESSE IM VORL. ZWISCHENSPEICHER 

2857 

CD 

BF 

28 


CALL 

28BF 

PLATZ IN STRINGSPACE FUER STRING DER LAENGE A MACHEN 

285A 

21 

D3 

40 


LD 

HL,40D3 

ADRESSE DES VORLAEUFIEN ZWISCHENSPEICHERS NACH HL 

285D 

E5 




PUSH 

HL 

RETTEN 

285E 

77 




LD 

(HL), A 

STRINGLAENGE ABSPEICHERN 

285E 

23 




INC 

HL 

ZEIGER INC. 

2860 

73 




LD 

(hl),e 

STRINGADRESSE IN STRINGSPACE ABSPEICHERN 

2861 

23 




INC 

HL 


2862 

72 




LD 

(hl) ,d 

(MSB) 

2863 

El 




PO? 

HL 

ADRESSE DES VORLAUEFIEN ZWISCHENSPEICHERS ZURUECK 

2864 

C9 




RET 






UP 

STRC 

(AF,BC,DE,HL=P) 







STRINGKONSTANTE IN ZWISCHENSPEICHER UND X UEBERNEHMEN 






I:(HL) 

. .=STRINGKONSTANTE ((HL)= 1. ZEICHEN) 






0:STRINGLAENGE UND STRINGADRESSE (HL) IN ZWISCHENSPEICHER 

2865 





UND 

ZEIGER DARAUF IN X 

2B 




DEC 

HL 

ZEIGER VOR STRING 

TRENNZEICHEN1 + 2 

2866 

06 

22 



LD 

B,22 

2868 

50 




LD 

D,B 

2869 

E5 




PUSH 

HL 

STRINGADRESSE - 1 RETTEN 

286A 

OE 

FF 



LD 

C ,FF 

ZEICHENZAEHLER = -1 

286C 

23 




INC 

HL 

ZEIGER INC. 

286D 

7E 




LD 

A,(HL) 

ZEICHEN LADEN 

286E 

OC 




INC 

C 

ZEICHENZAEHLER INC. 

286F 

B7 




OR 

A 

= ZEILENENDE? 

2870 

28 

06 



JR 

Z.2878 

JA, STRINGENDE 

2872 

BA 




CP 

D 

= TRENNZEICHENS? 

2873 

28 03 



JR 

Z.2878 

JA, STRINGENDE 

2875 

B8 




CF 

B 

= TRENNZEICHEN!? 

2876 

20 

FA 



JR 

NZ,286C 

NEIN, WEITER 

2878 

FE 

22 



CP 

22 

LETZTES ZEICHEN '"'? 

287A 

CC 

78 

ID 


CALL 

Z, 1 D78 
(SP),HL 

JA, LAECHSTES ZEICHEN 

2870 

E3 




EX 

STRINGADRESSE - 1 ZURUECK, POINTER RETTEN 

287E 

23 




INC 

HL 

STRINGADRESSE NACH HL 

2878 

EB 




EX 

DE, HL 

NACH DE 

2860 

79 




LD 

A,C 

285A 

STRINGLAENGE NACH A 

2881 

CD 

5A 

28 


CALL 

STRING IN VORLAEUFIGEN ZWISCHENSPEICHER EINTRÄGEN 

2884 

11 

D3 

40 


LD 

DE,40D3 

ADRESSE DES VORLAEUFIGEN ZWISCHENSPEICHERS NACH DE 

2887 

’5E 

D5 



LD 

A,D5 

(2888 

D5 



POP 

DE 

STRINGZEIGER NACH DE ZURUECK) 

2889 

21, 

B3 

40 


LD 

HL,(40B3) 

(4121 ),HL 

MOMENTANE ZWISCHENSPEICHERADRESSE NACH HL 

288C 

22 

21 

41 


LD 

NACH X 

288F 

3E 

03 



LD 

A,03 

TYPX = STRING 

2891 

32 

AF 

40 


LD 

(40AF),A 


2894 

CD 

D3 

09 


CALL 

09D3 ;VORLAEUFIGEN ZWISCHENSPEICHER IN NAECHSTEN ZWISCHENSPEICHERPLATZ UEBERTRAGEN 

2887 

11 

1)6 

AO 


LD 

DE.40D6 

ZWISCHENSPEICHER VOLL? 

289A 

DF 




RST 

18 


289B 

22 

B3 

40 


LD 

(40B3),HL 

NAECHSTE ZWISCHENSPEICHERADRESSE ABSPEICHERN 

289E 

El 




POP 

HL 

POINTER ZURUECK 

2S9F 

7E 




LD 

A,(HL) 

ZEICHEN LADEN 

28A0 

CO 




RET 

NZ 

NEIN, FERTIG 






ST-EPROR 


28 AI 

IE 

IE 



LD 

E, 1E ;ST-ERROR-CODE NACH E 

19A2 ;ZUR FEHLER-ROUTINE 

28A3 

C3 

A2 

19 


JP 





UP 

PRINTS 

(af,bc,d=oo,e 

HL-P) 






DRUCKT 

EINEN STRING 







I:(HL+1)..=STRING (DURCH ODER 0 BEENDET) 

n. / 

28A6 

23 

65 

28 


INC 

HL 

ZEIGER AUF ERSTES BYTE DES STRINGS 

28A7 

CD 


CALL 

2865 

STRING IN ZWISCHENSPEICHER UND X UEBERNEHMEN 

28 AA 

CD 

DA 

29 


CALL 

29DA 

STRING AUS ZWISCHENSPEICHER LOESCHEN 

28AD 

CD 

C4 

09 


CALL 

09C4 

STRINGADRESSE NACH BC, STRINGLAENGE NACH D 

28B0 

14 




INC 

D 

STRINGLAENGE + 1 

28B1 

15 




DEC 

D 

ALLE ZEICHEN GEDRUCKT? 

28B2 

C8 




RET 

z 

JA, ZURUECK 

28B3 

OA 




LD 

A,(BC) 

032A 

ZEICHEN LADEN 

28B4 

CD 

2A 03 


CALL 

AUSGEBEN 

28B7 

FE 

OD 



CP 

OD 

= CR? 

28B9 

CC 

03 

21 


CALL 

Z,2103 

JA, 41DC AUFRUFEN FUER DISK-BASIC 

28BC 

03 




INC 

BC 

ZEIGER INC. 

28BD 

18 

F2 



JR 

28B1 

WEITER 





UP 

MROOM 

(F.BC,DE,HL) 







PLATZ EUER STRING IN STRINGSPACE MACHEN 






I:A=STRINGLAENGE 


28EF 





0:DE=STRING SPACEADRESSE 

B7 




OR 

A ; 

PACK-FLAG LOESCHEN 

28C0 

OE 

Fl 



LD 

C,F1 
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28C2 

F5 



PUSH 

AP 

UND RETTEN 

28C3 

2A 

AO 

40 

LD 

HL,(40A0) 

STRINGSPACEANPANG - 1 LADEN 

28C6 

EB 



EX 

DE, HL 

NACH DE 

28C7 

2A 

D6 

40 

LD 

HL,(40D6) 

STRINGSPACEZEIGER NACH HL 

28CA 

2P 



CPL 

- STRINGLAENGE - 1 NACH BC 

28CB 

4P 



LD 

C,A 


28CC 

06 

PP 


LD 

B,FF 


28CE 09 



ADD 

HL,BC 

AUF STRINGSPACEZEIGER ADDIEREN 

28CP 23 



INC 

HL 

+ 1, ERGIBT STRINGSPACEZEIGER - STRINGLAENGE 

28D0 

DP 



RST 

18 

< STRINGSPACEANPANG - 1? 

28D1 

38 07 


JR 

C,28DA 
(40D6),HL 

JA, STRINGSPACE PACKEN 

NEUEN STRINGSPACEZEIGER ABSPEICHERN 

28D3 

22 

D6 

40 

LD 

28D6 

23 



INC 

HL 

+ 1 ERGIBT STRINGADRESSE IN STRINGSPACE 

28D7 

EB 



EX 

DE,HL 

NACH DE 

28D8 

PI 



POP 

AP 

STRINGLAENGE ZURUECK 

28D9 

C9 



RET 







STRINGSPACE PACKEN 


28DA 

PI 



POP 

AP 

PACK-FLAG ZUi\JECK, STRINGSPACE SCHON GEPACKT? 

28DB 

IE 

1A 


LD 

E, 1A 

OS-ERROR-CODE NACH E 

28DD 

CA 

A2 

19 

JP 

Z,19A2 

JA, OS-ERROR 

28E0 

BP 



CP 

A 

PACK-PLAG SETZEN 

28E1 

P5 



PUSH 

AP 

UND RETTEN 

28E2 

01 

CI 

28 

LD 

BC,28C1 

RUECKSPRUNGADRESSE SETZEN 

28E5 

C5 



PUSH 

BC 

HL,(40B1) 

(NACH PACKEN ERNEUT VERSUCHEN, OB GENUEGEND PLATZ FUER STRING 
WENN NICHT, OS-ERROR) 

28E6 

2A 

Bl 

40 

LD 

STRINGSPACEZEIGER = STRINGSPACEENDE 

28E9 

22 

D6 

40 

LD 

(40D6),HL 

HL,0000 


28EC 

21 

00 

00 

LD 

HOEHSTER STRINGZEIGER = 0 

28EP 

E5 



PUSH 

HL 

AUF STACK 

28F0 

2A 

AO 

40 

LD 

HL,(40A0) 

HOECHSTER STRING = ANFSTRINGSPACE 

28P3 

E5 



PUSH 

HL 

AUF STACK 





HOECHSTEN STRING UNTEI 

ZWISCHENSPEICHERSTRINGS SUCHEN 

28P4 

21 

B5 

40 

LD 

HL.40B5 

ZWISCHENSPEICHERANFANG NACH HL 

28P7 

EB 



EX 

DE,HL 

ADRESSE DES NAECHSTEN FREIEN ZWISCHENSPEICHERPLATZES NACH DE 

28P8 

2A B3 

40 

LD 

HL, (40B3) 


28FB 

EB 



EX 

DE, HL 


28PC 

DP 



RST 

18 

ZWISCHENSPEICHER FERTIG? 

28PD 

01 

F7 

28 

LD 

BC,28F7 

RUECKSPRUNGADRESSE FUER NAECHSTEN ZWISCHENSPEICHERPLATZ SETZEN 

2900 

C2 

4A 

29 

JP 

NZ,294A 

NEIN, HOECHSTEN STRING AKTUALISIEREN 





HOECHSTEN STRING UNTEf 

EINFACHEN VARIABLEN SUCHEN 

2903 

2A F9 

40 

LD 

HL,(40F9) 

ANFANG DER VARTABELLE NACH HL 

ANFANG DER ARRAYTABELLE NACH DE 

2906 EB 



EX 

DE, HL 

2907 

2A 

PB 

40 

LD 

HL,(40PB) 

290A EB 



EX 

DE,HL 


290B DP 



RST 

18 

ENDE DER VARTABELLE ERREICHT? 

290C 

28 

13 


JR 

Z.2921 

£f (EL) 

JA, ARRAYS UNTERSUCHEN 

TYP AUS TABELLE LADEN 

290E 7E 


LD 

290P 23 



INC 

VARTABZEIGER AUF WERT 

2910 

23 



INC 

HL 


2911 

23 



INC 

HL 


2912 

PE 

03 


CP 

03 

STRINGVARIABLE? 

2914 

20 

04 


JR 

NZ,291A 

NEIN 

2916 

CD 

4B 29 

CALL 

294B 

HOECHSTEN STRING AKTUALISIEREN 

2919 

AP 



XOR 

A 

A = 0, DAMIT ZEIGER NICHT NOCHMAL ERHOEHT 

291A 

5F 



LD 

E,A 

TYP NACH DE 

291B 

16 

00 


LD 

D,00 


291D 

19 



ADD 

HL, DE 

VARTABZEIGER UM TYP ERHOEHEN 

291E 

18 

E6 


JR 

2906 

WEITER 





HOECHSTEN STRING IN ARRAYTABELLE SUCHEN 

2920 

CI 



POP 

BC 

STACK KORRIGIEREN 

2921 

EB 



EX 

DE, HL 

ARRAYTABELLENENDE NACH DE 

2922 

2A 

PD 

40 

LD 

HL,(40FD) 


2928 

EB 



EX 

DE, HL 


2926 

DP 



RST 

18 

ARRAYTABELLENENDE ERREICHT? 

2927 

CA 

6B 

29 

JP 

Z,296B 

A,(HL) 

JA, HOECHSTEN STRING AN NAECHST HOECHSTER STELLE IN 

STRINGSPACE EINSORTIEREN 

292A 7E 



LD 

ARRAYTYP LADEN 

292B 

23 



INC 

HL 

ARRAYZEIGER INC. 

292C 

CD 

C2 

09 

CALL 

09C2 

ARRAYLAENGE NACH BC, ARRAYZEIGER AUF DIMZAEHLER 

292P E5 



PUSH 

HL 

ARRAYZEIGER RETTEN 

2930 09 



ADD 

HL,BC 

+ ARRAYLAENGE ERGIBT ANFANG DES NAECHSTEN ARRAYS 

2931 

PE 03 


CP 

03 

STRINGARRAY? 

2933 

20 

EB 


JR 

NZ,2920 
(40D8),HL 

NEIN, NAECHSTES ARRAY 

2935 

22 

D8 

40 

LD 

ZEIGER AUF NAECHSTES ARRAY ABSPEICHERN 

2938 El 



POP 

HL 

ZEIGER AUF DIMZAEHLER ZURUECK 

2939 

4E 



LD 

c,( hl) 

DIMZAEHLER LADEN 

293A 06 

00 


LD 

B,00 

NACH BC 

293C 09 



ADD 

HL,BC 

AUF DIMZAEHLERZEIGER 

293D 

09 



ADD 

HL,BC 

2 * ADDIEREN + 1 

293E 23 



INC 

HL 

ERGIBT ZEIGER AUF ARRAYWERTE 

293F EB 



EX 

DE, HL 

HL,(40D8) 

ZEIGER AUF NAECHSTES ARRAY NACH DE 

2940 

2A 

D8 

40 

LD 


2943 

EB 



EX 

DE, HL 


2944 

DP 



RST 

18 

ARRAY VOLLSTAENDIG BEARBEITET? 

2045 

28 

DA 


JR 

Z,2921 

JA. NAECHSTES ARRAY 

2947 01 

3F 

29 

LD 

BC,293F 

RUECKSPRUNGADRESSE SETZEN (NAECHSTES ARRAYELEMENT) 


STRING MIT BIS JETZT HOECHSTEM STRING VERGLEICHEN UND, WENN IN STRINGSPACE HOEHER, 


294A C5 
294B AP 
294C B6 
294D 23 
294E 5E 


DIESEN ERSETZEN 

PUSH BC ;RUECKSPRUNGADRESSE RETTEN 

XOR A ;STRINGLAENGE = 0? 

OR (HL) 

INC HL ;STRINGZEIGER AU? STRINGADRESSE 

LD E,(HL) ;STRINGADRESSE LADEN 
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2y4F 0 



—INE- 

HL 

2950 5b 



LD 

D,(HL) ; 

29F1 27 



INC 

HL 

2952 C8 



RET 

Z ; 

2953 44 



LD 

B,H ; 

2954 4D 



LD 

C,L 

2955 2A 

D6 

^0 

LD 

HL,(40D6) ; 

2958 DF 



RST 

18 ; 

2959 60 



LD 

H,B ; 

295A 69 



LD 

L,C 

295B D8 



RET 

C ; 

295C El 



POP 

HL ; 

295D E3 



EX 

(SP),HL ; 

295E DF 



RST 

18 ; 

295F E3 



EX 

(SP),HL ; 

2960 E5 



PUSH 

HL ; 

2961 60 



LD 

H,B ; 

2962 69 



LD 

L,C 

2963 DO 



RET 

NC ; 

2964 CI 



POP 

BC ; 

2965 Fl 



POP 

AF ; 

2966 Fl 



POP 

AF 

2967 E5 



PUSH 

HL ; 

2968 D5 



PUSH 

DE ; 

2969 C5 



PUSH 

BC ; 

296A C9 



RET 





HOECHSTEN STRING EINSO 

296B Dl 



POP 

DE ; 

296C El 



POP 

HL ; 

296D 7D 



LD 

A,L ; 

296E B4 



OR 

H ; 

296F C8 



RET 

Z ; 

2970 2B 



DEC 

HL ; 

2971 46 



LD 

B,(HL) ; 

2972 2B 



DEC 

HL 

2977 4E 



LD 

C,(HL) ; 

2974 E5 



PUSH 

HL ; 

2975 2B 



DEC 

HL 

2976 6E 



LD 

L,(HL) ; 

2977 26 

00 


LD 

H,00 

2979 09 



ADD 

HL,BC ; 

297A 50 



LD 

D,B ; 

297B 59 



LD 

E.C 

297C 2B 



DEC 

HL ; 

297D 44 



LD 

B,H ; 

297E 4D 



LD 

C,L 

297F 2A 

D6 

40 

LD 

HL,(40D6) ; 

2982 CD 

58 

19 

CALL 

1958 ; 

2985 El 



POP 

HL ; 

2986 71 



LD 

(HL),C ; 

2987 23 



INC 

HL 

2988 70 



LD 

(KL),B ; 

2989 69 



LD 

L,C ; 

298A 60 



LD 

H.B 

298B 2B 



DEC 

HL ; 

298C C3 

E9 

28 

JP 

28E9 ; 




STRINGVERKNUEPFUNG 

298F C5 



PUSH 

BC 

2990 E c 



PUSH 

HL 

2991 2A 

21 

41 

LD 

Hl,(4121) 

2994 E3 



EX 

(SP),HL 

2995 CD 

9F 

24 

CALL 

249F 

2998 F3 



EX 

(SP),HL 

2999 CD 

F4 

OA 

CALL 

0AF4 

299C 7E 



LD 

A,(HL) 

299D E5 



PUSH 

HL 

299E 2A 

21 

41 

LD 

HL,(4121) 

29A1 E5 



PUSH 

HL 

29A2 86 



ADD 

(HL) 

29A7 IE 

IC 


LD 

E, 1 C 

29A5 DA 

A2 

19 

JP 

C,19A2 

29A8 CD 

57 

28 

CALL 

2857 

29AB Dl 



POP 

DE 

29AC CD 

DE 

29 

CALL 

29DE 

29AF E3 



EX 

(SP),HL 

29BG CD 

DD 

29 

CALL 

29DD 

29B3 E5 



PUSH 

HL 

29B4 2A 

D4 

40 

LD 

HL,(40D4) 

29B7 EB 



EX 

DE,HL 

29B8 CD 

C6 

29 

CALL 

29C6 

29BB CD 

C6 

29 

CALL 

29C6 

29BE 21 

49 

23 

LD 

HL,2349 

29C1 E3 



EX 

(SP),HL 

29C2 E5 



PUSH 

HL 

29C3 C3 

84 

28 

JP 

2884 




STRING 

IN STRINGSPACE 

29C6 El 



POP 

HL 

29C7 E7 



EX 

(SP),HL 

2 Q C8 7E 



LD 

A, (HL) 

29C9 2^ 



INC 

HL 

29CA 4E 



LD 

c,( hl) 

29CB 23 



INC 

HL 

29CC 46 



LD 

B,(HL) 

29CD 6F 



LD 

L, A 

29CE 2C 



INC 

L 

29CF 2D 



DEC 

L 


Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 
;(MSP) 


STRINGADRESSE > STRINGSPACEPOINTER? 

(STRING SCHON NEU EINSORTIERT) 

STFINGZEIGER NACH HE ZURUECK 

JA, FERTIG 

RUECKSPRUNGADRESSE NACH HL 

RUECKSPRUNGADRESSE WIEDER RETTEN, ADRESSE DES HOECHSTEN STRINGS NACH HL 
ZU UNTERSUCHENDER STRING HOEHER ALS HOECHSTER STRING? 
RUECKSPRUNGADRESSE ZURUECK, ADRESSE DES HOECHSTEN STRINGS RETTEN 
RUECKSPRUNGADRESSE RETTEN 
STRINGZEIGER ZURUECK NACH HL 

NEIN, FERTIG 

RUECKSPRUNGADRESSE NACH BC 

ADRESSE UND ZEIGER DES HOECHSTEN STRINGS ENTFERNEN 

ZEIGER (+ 3) UND ADRESSE DES GERADE UNTERSUCHTEN STRINGS 
ALS NEUEN HOECHSTEN STRING AUF STACK 
RUECKSPRUNGADRESSE AUE STACK 


ADRESSE DES HOECHSTEN STRINGS NACH DE 
ZEIGER (+3) DES HOECHSTEN STRINGS NACH HL 
ZEIGER = 0? 

(ALLE STRINGS EINSORTIERT) 

JA, FERTIG 

STRINGZEIGER AUF STRINGADRESSE 
STRINGADRESSE LADEN 

(LSB) 

STRINGZEIGER RETTEN 
STRINGLAENGE LADEN 
NACH HL 

+ STRINGADRESSE 


STRINGSPACEPOINTER NACH HL 

STRING UNTERHALB VON STRINGSPACEPOINTER ABSPEICHERN 

STRINGZEIGER ZURUECK 

NEUE STRINGADRESSE ABSPEICHERN 


(MSB) 
NACH Hu 


LASTLEVEL RETTEN 

POINTER RETTEN 

1.STRINGZEIGER NACH HL 

POINTER ZURUECK, 1.STRINGZEIGER RETTEN 

2.OPERANDEN BESTIMMEN 

POINTER RETTEN, 1.STRINGZEIGER ZURUECK 

2.OPERAND KEIN STRING? —> TM-ERROR 

1.STRINGLAENGE LADEN 

1.STRINGZEIGER RETTEN 

2.STRINGZEIGER LADEN 

UND RETTEN 

STRINGLAENGEN ADDIEREN, SUMME > 255D? 

LS-ERROR-CODE NACH E 
JA, LS-ERROR 

PLATZ FUER VERBUNDENEN STRING MACHEN, IN VORL. ZWISCHENSP. EINTR. 

2.STRINGZEIGER ZURUECK 

2.STRING AUS ZWISCHENSPEICHER ENTFERNEN 

2.STRINGZEIGER (HL) RETTEN UND 1.STRINGZEIGER NACH HL 

1.STRING AUS ZWISCHENSPEICHER ENTFERNEN 

1.STRINGZEIGER RETTEN 

STRINGADRESSE AUS VORL. ZWISCHENSP. LADEN 
NACH DE 

1.STRING IN STRINGSPACE UEBERNEHMEN 
2.STRING DAHINTER IN STRINGSPACE UEBERNEHMEN 
RUECKSPRUNGADRESSE (AUSDRUCK WEITER BEARBEITEN) 

MIT POINTER VERTAUSCHEN 
POINTER RETTEN 

VORLAEUFIGEN ZWISCHENSPEICHER NACH X UND IN ZWISCHENSPEICHER 


RUECKSPRUNGADRESSE NACH HL 

STRINGZEIGER NACH HL, RUECKSPRUNGADRESSE WIEDER RETTEN 
STRINGLAENGE LADEN 
STRINGZEIGER INC. 

STRINGADRESSE LADEN 


(MSB) 

STRINGLAENGE NACH L 
+ 1 

STRINGLAENGE - 1, FERTIG? 
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OA 

LD 

A.(BC) 

(DE),A 

;1 ZEICHEN IN STRINGSPACE UEBERTRAGEN 

12 

LD 

03 

INC 

BC 

;ZEIGER INC. 

13 

INC 

DE 


18 F8 

JR 

29CF 

;WEITER 


STRING AUS ZWISCHENSPEICHER UND STRINGSPACE ENTFERNEN 


CD 

F4 

OA 

CALL 

0AF4 

KEIN STRING IN X? —> TM-ERROR 

2A 

21 

41 

LD 

HL,(4121 ) 

STRINGZEIGER LADEN 

EB 



EX 

DE, HL 

NACH DE 

CD 

F5 

29 

CALL 

29F5 

STRING OBERSTER IN ZWISCHENSPEICHER? —> 

EB 



EX 

DE, HL 

STRINGZEIGER NACH HL 

CO 



RET 

NZ 

NICHT ENTFERNT? —> FERTIG 




STRING 

AUS STRINGSPACI 

] ENTFERNEN 

D5 



PUSH 

DE 

STRINGZEIGER RETTEN 

50 



LD 

D,B 

STRINGADRESSE NACH DE 

59 



LD 

E,C 


1B 



DEC 

DE 

- 1 

4E 



LD 

C,(HL) 

STRINGLAENGE NACH C 

2A 

D6 

40 

LD 

HL,(40D6) 

STRINGSPACEZEIGER NACH HL 

DF 



RST 

18 

= STRINGADRESSE - 1 

20 

05 


JR 

NZ,29F3 

NEIN, FERTIG 

47 



LD 

B,A 

0 NACH B 

09 



ADD 

HL,BC 

STRINGSPACEZEIGER + STRINGLAENGE 

22 

D6 

40 

LD 

(40D6),HL 

WIEDER ABSPEICHERN 

El 



POP 

HL 

STRINGZEIGER ZURUECK 

C9 



RET 






STRING 

AUS ZWISCHENSPEICHER ENTFERNEN 

2A B3 

40 

LD 

HL, (40B3) • 

NAECHSTE 1 ZWISCHENSPEICHERADRESSE NACH HL 

2B 



DEC 

HL 


46 



LD 

B, (HL) 

ADRESSE VON LETZTEM STRING LADEN 

2B 



DEC 

HL 


4E 



LD 

c,( hl) 

(LSB) 

2B 



DEC 

HL 

ZEIGER AUF LETZTE EINTRAGUNG 

DF 



RST 

18 

= STRINGZEIGER 

CO 



RET 

NZ 

NEIN 

22 

B3 

40 

LD 

(40B3),HL 

NEUEN ZEIGER ABSPEICHERN, LETZTER EINTRAG 

C9 



RET 




2A03 01 E8 27 
2A06 C5 
2A07 CD D7 29 
2A0A AF 
2A0B 57 
2A0C 7E 
2A0D B7 
2A0E C9 


2A0F 01 E8 27 
2A1 2 C5 
2A13 CD 07 2A 
2A16 CA 4A IE 
2A19 23 
2A1A 5E 
2A1B 23 
2A1C 56 
2A1D 1A 
2A1E C9 


2A1E 3E 01 
2A21 CD 57 28 
2A24 CD 1F 2B 
2A27 2A D4 40 
2A2A 73 
2A2B CI 
2A2C C3 84 28 


D7 

CF 

28 

CD IC 2B 

D5 

CP 

2C 

CD 37 23 

CP 

29 

E3 

E5 

E7 

28 05 
CD 1F 2B 
18 03 
CD 13 2A 


BEN-PUNKTION 

ERGIBT LAENGE EINES STRINGS 


BC,27E8 

BC 

29D7 

A 

D,A 

A, (HL) 

A 


RUECKSPRUNGADRESSE SETZEN 
(A NACH X) 

ARGUMENTSTRING AUS ZWISCHENSPEICHER UND STRINGSPACE ENTFERNEN 
0 NACH D 
(FUER VAL) 

STRINGLAENGE LADEN 
UND TESTEN 
WEITER BEI 27P8 


ASC-FUNKTION 
ERGIBT ASCII-CODE DES 
LD BC,27E8 

PUSH BC 

CALL 2A07 

JP Z.1E4A 

INC HL 

LD E, (HL) 

INS HL 

LD D,(HL) 

LD A,(DE) 


ERSTEN ZEICHENS EINES STRINGS 
RUECKSPRUNGADRESSE SETZEN 
(A NACH X) 

STRINGLAENGE - 0? 

JA, PC-ERROR 

STRINGZEIGER AUF STRINGADRESSE 
STRINGADRESSE LADEN 

(LSB) 

1.ZEICHEN LADEN 
WEITER BEI 27F8 


CHR$-FUNKTION 

ERZEUGT 1-BYTE STRING MIT ZEICHEN DESSEN ASCII-CODE DEM ARGUMENT ENTSPRICHT 


A.01 

2857 

2B1F 

HL,(40D4) 

(HLJ.E 

BC 

2884 


STRINGLAENGE = 1 

PLATZ IN STRINGSPACE EUER STRING MACHEN UND IN VORL. ZWSP. EINSTR. 
GANZZAHLIGEN WERT DES ARGUMENTES NACH E (< 256D) 

STRINGADRESSE AUS VORL. ZWISCHENSPEICHER LADEN 
ZEICHEN ABSPEICHERN 
RUECKSPRUNGADRESSE ENTFERNEN 

VORLAEUEIGER ZWISCHENSPEICHER NACH X UND IN ZWISCHENSPEICHER 


STRINGS-PUNKTION 

ERZEUGT STRING AUS N GLEICHEN ZEICHEN 


(SP),HL 
HL 
20 

Z.2A47 

2B1F 

2A4A 

2A13 

DE 

AF 

AF 

A,E 


NAECHSTES ZEICHEN 
SYNTAXCHECK: POINTER AUF '('? 

( 

STRINGLAENGENAUSDRUCK AUSWERTEN, GANZZAHLIGEN TEIL (< 256D) NACH E 

STRINGLAENGE RETTEN 
SYNTAXCHECK: POINTER AUE ','? 

ZEICHENAUSDRUCK AUSWERTEN 
SYNTAXCHECK: POINTER AUF ')'? 

) 

STRINGLAENGE NACH L ZURUECK, POINTER RETTEN 
STRINGLAENGE RETTEN 

ERGEBNIS DES ZEICHENAUSDRUCKES STRING? 

JA 

NEIN, GANZZAHLIGEN WERT (< 256D) NACH A 
WEITER 

ERSTES ZEICHEN DES STRINGS NACH A (ASC-FUNKTION) 

STRINGLAENGE NACH F 
ZEICHEN 2 MAL RETTEN 


PLATZ IN STRINGSIACE FREIMACHEN UND 
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RME" 

Tir 

~5T 

zti 

CALL ' 

~ZB57- 

STRING'IN' V0RLAEUF1GEN ZWISCHENSPEICHER' EINTRÄGEN 


2A51 

5F 



LD 

E,A 

STRINCLAENGE NACH E 


2A52 

Fl 



POP 

AF 

ZEICHEN ZURUECK 


2A53 

IC 



INC 

E 

STRINGLAENGE = 0? 


2A54 

ID 



DEC 

E 



2A95 

28 

D4 


JR 

Z,2A2E 

JA, VORLAUEFIGEN ZWISCHENSPEICHER IN ZWISCHENSPEICHER 

UND X 

2A57 

2A 

B4 

40 

LD 

HL,(40D4) 

STRINGADRESSE LADEN 


2A5A 

77 



LD 

(HL ,A 

ZEICHEN EINSCHREIBEN 


2A5B 

23 



INC 

HL 

ZEIGER INC. 


2A5C 

ID 



DEC 

E 

STRINGLAENGE ABGEARBEITET? 


2A5D 

20 

FB 


JR 

NZ.2A5A 

NEIN, WEITER 


2A5F 

18 

CA 


JR 

2A2B 

VORLAEUFIGEN ZWISCHENSPEICHER IN ZWISCHENSPEICHER UND 

X 




** 

LEFT$- 

FUNKTION 







LINKEN 

TEIL EINES STRINGS ABTRENNEN 


2A61 

CD 

DF 

2A 

CALL 

2ADP 

POINTER NACH HL, ) TESTEN UND 2.ARGUMENT NACH B 


2A64 

AF 



XOR 

A 

LEFTOFFSET (EUER RIGHTS UND MID$) = 0 


2A65 

E3 



EX 

(SP),HL 

POINTER RETTEN UND STRINGZEIGER NACH HL 


2A66 

4F 



LD 

C,A 

LEFTOFFSET NACH C 


2A67 

3E E5 


LD 

A,E5 



(2A68 

E5 


PUSH 

HL 

STRINGZEIGER RETTEN (STACKKORREKTUR BEI ANSPRUNG VON USING) 

2A69 E5 



PUSH 

HL 

STRINGZEIGER RETTEN 


2A6A 

7E 



LD 

A,(HL) 

STRINGLAENGE < ALS 2.ARGUMENT? 


2A6B 

B8 



CP 

B 



2A6C 

38 

02 


JR 

C,2A70 

JA, ERGSTRINGLAENGE = STRINGLAENGE, LEFTOFFSET = 0 


2A6E 

78 



LD 

A,B 

NEIN, ERGSTRINGLAENGE = 2.ARG 


2A6F 

1 1 

OE 

OG 

LD 

DE.OOOE 



(2A70 

OE 

00 

LD 

C,00 

LEFTOFFSET = 0) 


2A72 

C5 



PUSH 

BC 

LEFTOFFSET RETTEN 


2A73 

CD 

BF 

28 

CALL 

28BF 

PLATZ FUER ERGSTRING IN STRINGSPACE FREIMACHEN 


2A76 

CI 



POP 

BC 

LEFTOFFSET ZURUECK 


2A77 

El 



POP 

HL 

STRINGZEIGER ZURUECK 


2A78 

E5 



PUSH 

HL 

UND WIEDER RETTEN 



2A79 23 
2A7A 46 
2A7E 23 
2A7C 66 
2A7D 68 
2A7E 06 


00 


INC 

LD 

INC 

LD 

LD 

LD 


HL 

B» (HL) 
HL 

H, (HL) 

L,B 

B,00 


STRINGZEIGER AUF STRINGADRESSE 
STRINGADRESSE LADEN (NACH HL) 

(MSE) 

(LSB) 

LEPTOPPSET AUF STRINGADRESSE ADDIEREN 


2A80 

09 



ADD 

HL,BC 


2A81 

44 



LD 

B,H 

jERGSTRINGADRESSE NACH BC FUER TRANSFER IN STRINGSPACE 

2A82 

4D 



LD 

C,L 


2A83 

CD 

5A 

28 

CALL 

285 A 

ERGSTRING IN VORLAEUFIGEN ZWISCHENSPEICHER EINTRÄGEN 

2A86 

6F 



LD 

L,A 

ERGSTRINGLAENGE NACH L 

2A87 

CD 

CE 

29 

CALL 

29CE 

ERGSTRING IN STRINGSPACE UEBERTRAGEN 

2A8A 

Dl 



POP 

DE 

STRINGZEIGER NACH DE 

2A8B 

CD 

DE 

29 

CALL 

29DE 

ARGUMENTSTRING AUS ZWISCHENSPEICHER UND STRINGSPACE LOESCHEN 

2A8E 

C3 

84 

28 

JP 

2884 

VORLAEUFIGER ZWISCHENSPEICHER IN ZWISCHENSPEICHER UND NACH X 




** 

RIGHTS- 

-FUNKTION 






TRENNT 

RECHTEN TEIL EINES STRINGS AE 

2A91 

CD 

DP 

2a 

CALI 

2 AD"’ 

POINTER NACH HL, ')' TESTEN, 2.ARG NACH B 

2A94 

Dl 



POP 

DE 

STRINGZEIGER NACH DE ZURUECK 

2A95 

D5 



PUSH 

DE 

UND WIEDER RETTEN 

2AQb 

1A 



LD 

A,(DE) 

STRINCLAENGE - 2.ARG 

2A97 

GQ 



SUB 

B 

ERGIB™ LEFTOFFSET 

2A9S 

18 

CB 


JR 

2A65 

WEITER IN LEFTS 





KIDS-Fl 

•IKTION 






MITTLEREN TEIL EINES STRINGS ABTRENNEN 

2A9A EB 



EX 

DE, HL 

POINTER NACH HL 

2A9B 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 

2A9C 

CD 

E2 

2A 

CALL 

2AE2 

2.ARG NACH B 

2A9F 

04 



INC 

B 

2.ARG = 0? 

2AA0 

03 



DEC 

E 


2AA1 

CA 

4A 

IE 

JP 

Z,1E4A 

JA, FC-ERROR 

2AA4 

05 



PUSH 

BC 

2.ARG RETTEN 

2AA5 

i a 

FF 


LD 

E,FF 

3.ARG = 255D (WENN KEIN 3-ARG VORHANDEN, GESAMTER RESTSTRING) 

2AA7 

FE 

29 


CP 

29 

= ')'? 

2AA9 

28 

05 


JR 

Z,2AB0 

JA, WEITER 

2 AAL 

CP 



RST 

08 

SYNTAXCHECK: POINTER AUF ','? 

2AAC 

2C 






2AAD 

CD 

IC 

2B 

CALL 

2B1C 

3•ARGAUSDRUCK AUSWERTEN, GANZZAHLIGEN WERT (< 256) NACH E 

2 ABO 

CF 



RST 

08 

SYNTAXCHECK: POINTER AUF ')'? 

2AB1 

29 





) 


2AB2 PI 
2AB3 E3 
2AB4 01 69 2A 
2AE7 C5 
2AB8 3D 
2AB9 BE 
2ABA 06 00 
2ABC DO 
2A3D 4P 
2ABE 7E 
2ABP 91 
2AC0 BB 
2AC1 47 
2AC2 D8 
2AC3 43 
2AC4 C9 


2AC5 CD 07 2A 
2AC8 CA P8 27 
2ACB 5P 
2ACC 23 
2ACD 7E 


POP 

EX 

LD 

PUSH 

DEC 

CP 

LD 

RET 

LD 

LD 

SUB 

CP 

LD 

RET 

LD 

RET 


AP 

(SP),HL 
BC,2A69 
BC 
A 

(HL) 

B, 00 
NC 

C, A 

A, (KL) 

C 

E 

B, A 
C 

B,E 


2.AEG NACH A ZURUECK 
POINTER RETTEN, STRINGZEIGER ZURUECK 
RUECKSPRUNGADRESSE SETZEN 
(IN LEFTS-FUNKTION SPRINGEN) 

2.ARG - 1 ERGIBT LEFTOFFSET 
STRINGLAENGE < 2.ARG? 

ERG STRINGLAENGE = 0? 

JA, ERGSTRING IST LEERSTRING 

LEFTOFFSET NACH C 

STRINGLAENGE - LEFTOFFSET < 3.ARG 


;ERGSTRINGLAENGE = DIFFERENZ 

;JA, GESAMTEN RESTSTRING ALS ERGSTRING U.EBERNEHMEN 
;NEIN, 3-ARG ALS ERGSTRINGLAENGE 
;ZUR LEFTS-FUNKTION 


VAL-FUNKTION 

STRING IN ZAHL UMWANDELN 


CALL 

JP 

LD 

INC 

LD 


2A07 
Z,27F8 
E,A 
HL 

A,(HL) 


STRINGLAENGE DES ARGUMENTES = 0? 
JA, 0 ALS INTEGER NACH X, FERTIG 
STRINGLAENGE NACH E 
STPINGZEIGER INC. 

STRINGADRESSE NACH HL 
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ZÄCE~Z3- —INC-nj;- 

2ACF 66 LD H, (KL) 

2ADO 6F LD L.A 


2AD1 E5 
2AD2 19 
2AD3 46 
2AD4 72 
2 AD 5 E3 
2AD6 C5 
2AD7 7E 
2AD8 CD 65 OE 
2ADB CI 
2ADC El 
2ADD 70 
2ADE C9 


PUSH HL 

ADD HL,DE 

LD E,(HL) 

LD (HL),D 

EX (SP),HL 

PUSH BC 

LD A, (HL) 

CALL OE65 

POP BC 

POP HL 

LD (HL),B 

RET 



STRINGADRESSE RETTEN 

STRINGLAENGE ADDIEREN (D IST 0 VON LEN) 

EPSTES ZEICHEN DES NAECHSTEN STRINGS LADEN 
DURCH ZEILENENDE ERSETZEN 

STRINGADRESSE ZURUECK, S^RINGADRESSE DES NAECHSTEN STRINGS RETTEN 

1.ZEICHEN DES NAECHSTEN STRINGS RETTEN 

1.ZEICHEN IN AKKU 

STRING IN ZAHL UMWANDELN (NACH X) 

1.ZEICHEN DES NAECHSTEN STRINGS ZURUECK 
STRINGADRESSE DES NAECHSTEN STRINGS ZURUECK 
1.ZEICHEN WIEDER ABSPEICHERN 



UP FUER 

LEFT$, 

RIGHTS, MIDS 

2ADF EE 

EX 

DE, HL 

;ANSPRUNG LEFTS UND RIGHTS: POINTER NACH HL 

2AE0 CF 

RST 

08 

;SYNTAXCHECK: POINTER AUF ')'? 

2AE1 29 



) 

2AE2 CI 

POP 

BC 

;ANSPRUNG MIDS: RUECKSPRUNGADRESSE NACH BC ZURUECK 

2AE3 Dl 

POP 

DE 

;2.ARG NACH E ZURUECK 

2AE4 C5 

PUSH 

BC 

;RUECKSPRUNGADRESSE WIEDER RETTEN 

2AE5 43 

LD 

B,E 

;2.ARG NACH B 

2AE6 C9 

RET 




2AE7 EE 7A 
2AE9 C2 97 19 
2AEC C3 D9 41 


FUNKTIONSTOKEN AUF LINKER SEITE DER ZUWEISUNG 


CP 

JP 

JP 


7A 

NZ,1997 
41D9 


MID$-TOKEN? 

NEIN, SN-ERROR 

JA, MID$ AUF LINKER SEITE DER ZUWEISUNG (NUR IN DISK-BASIC) 


** 


2AEF CD 1F 2B 
2AF2 32 94 40 
2AF5 CD 93 40 
2AF8 C3 F8 27 


INP-FUNKTION 
EINGABPORT LESEN 
CALL 2B1F 

LD (4094),A 

CALL 4093 

JP 27F8 


GANZZAHLIGEN WERT (< 256D) DES ARGUMENTES NACH A 
IN INP-UNTERPROGRAMM ALS PORTADRESSE ABSPEICHERN 
INP-UNTERPROGRAMM IM RAM AUFRUFEN 
AKKU ALS ERGENBIS NACH X 


** 


2AFB CD OE 2B 
2AFE C3 96 40 


OUT-ANWEISUNG 

WERT AUF AUSGABEPORT AUSGEBEN 

CALL 2B0E ;BEIDE ARGUMENTE VON OUT ANALYSIEREN UND PORTADRESSE IM RAM ABLEGEN 

JP 4096 ;RAM UNTERPROGRAMM ZUR AUSFUEHRUNG DER AUSGABE AUFRUFEN 


UP INTEXP (AF,BC,DE,HL=P) 

AUSDRUCK AUSWERTEN UND ERGEBNIS IN INTEGER UMWANDELN 

I:(HL+1)..=TEXT 

0:DE=ERGEBNIS 

F=FLAG: ERGEBNIS <0, S=1 

ERGEBNIS < 256D, Z=1 


2B01 D7 



RST 

10 

NAECHSTES ZEICHEN 


2B02 CD 

37 

23 

CALL 

2337 

AUSDRUCK AUSWERTEN 


2B05 E5 



PUSH 

HL 

POINTER RETTEN 


2B06 CD 

7F OA 

CALL 

0A7F 

ERGEBNIS IN INTEGER UMWANDELN 


2B09 EB 



EX 

DE, HL 

ERGEBNIS NACH DE 


2B0Ä El 



POP 

HL 

POINTER ZURUECK 


2B0B 7A 



LD 

A,D 

FLAG SETZEN (S.O.) 


2B0C B7 



OR 

A 



2B0D C9 



RET 







2 ARGUMENTE FUER OUT ANALYSIEREN 


2B0E CD 

IC 

2B 

CALL 

2B1C 

PORTADRESSENAUSDRUCK AUSWERTEN, GANZZAHLIGEN WERT 

(< 256D) NACH A 

2B11 32 

94 

40 

LD 

(4094),A 

IN INP-UNTERPROGRAMM 


2B14 32 

97 

40 

LD 

(4097),A 

UND OUT-UNTERPROGRAMM ABSPEICHERN 


2B17 CF 



RST 

08 

SYNTAXCHECK: POINTER AUF ','? 


2B18 2C 







2B19 18 

01 


JR 

2B1C 

AUSGABEWERTAUSDRUCK AUSWERTEN, GANZZAHLIGEN WERT 

(< 256D) NACH A, ZURUECK 


UP IEXPA (AF,BC,DE,HL=P) 

AUSDRUCK AUSWERTEN, ERGEBNIS IN INTEGER UMWANDELN (< 256D) 

I:(HL+1)..=TEXT 

0:A.E=ERGEBNIS 


2B1B D7 



RST 

10 

NAECHSTES ZEICHEN 

2B1C CD 

37 

23 

CALL 

2337 

AUSDRUCK AUSWERTEN 

2B1F CD 

05 

2B 

CALL 

2B05 

ERGEBNIS IN INTEGER UMWANDELN (NACH DE) 

2B22 C2 

4A 

IE 

JP 

NZ,1E4A 

> 256D? —> FC-ERROR 

2B25 2B 



DEC 

HL 

POINTER DEC. 

2B26 D7 



RST 

10 

NAECHSTES ZEICHEN 

2B27 7B 



LD 

A,E 

ERGEBNIS NACH A 

2B28 C9 



RET 





** 

LLIST 

-BEFEHL 





PROGRAMMLISTING AUF DRUCKER 

2B29 3E 

01 


LD 

A,01 

AUSGABE-FLAG AUF DRUCKER SETZEN 

2B2B 32 

9C 

40 

LD 

(409C),A 




** 

LIST- 

BEFEHL 





PROGRAMMLISTING AUF BILDSCHIRM 

2B2E CI 



POP 

BC 

RUECKSPRUNGADRESSE ENTFERNEN 

2B2F CD 

10 

1B 

CALL 

1B10 

BEIDE ARGUMENTE ANALYSIEREN (1.ZEILENADRESSE 

2B32 C5 



PUSH 

BC 

1.ZEILENADRESSE RETTEN 

2B33 21 

FF 

FF 

LD 

HL,FFFF 

DIREKTMODE SETZEN 

2B36 22 

A2 

40 

LD 

(40A2),HL 

(AKTUELLE ZNR = FFFF) 

2B39 El 



POP 

HL 

1.ZEILENADRESSE NACH HL 

2B3Ä Dl 



POP 

DE 

2.ZNR NACH DE 

2B3B 4E 



LD 

c,( hl) 

ZEILENZEIGER LADEN 

2B3C 23 



INC 

HL 


2B^D 46 



LD 

B,(HL) 

(MSB) 

2P3E 23 



INC 

HL 


2B3F 78 



LD 

A,B 

;= 0? 


2.ZNR IN STACK) 
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ZB2TCJ- 

TB T 




HJE- 

— C 

(PHUUKAi'WENDE) 

2B41 

CA 

19 

1A 


JP 

Z.1A19 

JA, ZUR HAUPTSCHLEIFE 

2B44 

CD 

DF 

41 


CALL 

41 DF 


2B47 

CD 

9B 

ID 


CALL 

1D9B 

BEHANDLUNG VON TASTENDRUECKEN WAEHREND DES AUFLISTENS 

2B4A 

C5 




PUSH 

BC 

NAECHSTE ZEILENADRESSE RETTEN 

2B4B 

4E 




LD 

c, (hl) 

ZNR LADEN 

2B4C 

23 




INC 

HL 


2B4D 

46 




LD 

B, (HL) 

(MSB) 

2B4E 

23 




INC 

HL 

2B4F 

C5 




PUSH 

BC 

ZNR RETTEN 

2B50 

E3 




EX 

(SP),HL 

ZEIGER RETTEN, ZNR NACH HL 

2B51 

EB 




EX 

DE, HL 

2.ZNR NACH HL, ZNR NACH DE 

2B5 2 

DF 




RST 

18 

ZNR > 2.ZNR? 

2B53 

CI 




POP 

BC 

ZEIGER NACH BC 

2B54 

DA 

18 

1A 


JP 

C.1A18 
(SP),HL 

JA, ZUR HAUPTSCHLEIFE 

ZEIGER AUF NAECHSTE ZEILE NACH HL, 2.ZNR RETTEN 

2B57 

E3 




EX 

2B58 

ES 




PUSH 

HL 

ZEIGER AUF NAECHSTE ZEILE RETTEN 

2B59 

CS 




PUSH 

BC 

ZEIGER RETTEN 

2B5A 

EB 




EX 

DE, HL 
(40EC),HL 

ZNR NACH HL 

2B5B 

22 

EC 

40 


LD 

ALS '.'-ZNR ABSPEICHERN 

2B5E 

CD 

AF 

OF 


CALL 

ÖFAF 

ZNR AUSGEBEN 

2B61 

3E 

20 



LD 

A,20 

LEERZEICHEN NACH A 

2B63 

El 




POP 

HL 

ZEIGER NACH HL ZURUECK 

2B64 

CD 

2A 

03 


CALL 

032A 

LEERZEICHEN AUSGEBEN 

2B67 

CD 

7E 

2B 


CALL 

2B7E 

AUS ZWISCHENCODE LESBAREN TEXT ERZEUGEN 

2B6A 

2A 

A7 

40 


LD 

HL,(40A7) 

I/O-BUFFERANFANG (= TEXTANFANG) NACH HL 

2B6D 

CD 

7S 

2B 


CALL 

2B75 

TEXT AUSGEBEN 

2B70 

CD 

FE 

20 


CALL 

20FE 

CR AUSGEBEN 

2B73 

18 

BE 



JR 

2B33 

WEITER 





UP 

PRINTT 

(AF.HL) 







DRUCKT 

TEXTSTRING 







I:(HL) 

.=TEXTSTRING MIT 0 ABGESCHLOSSEN 






0:(HL) 

=TEXTBEGRENZER 

r o) 

2B75 

7E 




LD 

A,(HL) 

ZEICHEN LADEN 

2B76 

B7 




OR 

A 

= TEXTENDE? 

2B77 

C8 




RET 

Z 

JA, FERTIG 

2B78 

CD 

2A 

03 


CALL 

032A 

ZEICHEN AUSGEBEN 

2B7B 

23 




INC 

HL 

ZEIGER AUF NAECHSTES TEXTZEICHEN 

2B7C 

18 

F7 



JR 

2B75 

WEITER 





UP 

GENTXT 

(AF,BC,DE,HL) 







ERZEUGT AUS ZWISCHENCODES LESBAREN TEXT 






I:(HL) 

.=PROGRAMMZEILE IN ZWISCHENCODES 






0:TEXT 

IM I/O-BUFFER MIT 0 ABGESCHLOSSEN 

2B7E 

ES 




PUSH 

HL 

CODEZEIGER RETTEN 

2B7P 

2A 

A7 

40 


LD 

HL,(40A7) 

BUFFERZEIGER NACH BC 

2B82 

44 




LD 

B,H 


2B83 

4D 




LD 

C,L 


2B84 

El 




POP 

HL 

CODEZEIGER ZURUECK 

2B85 

16 

FF 



LD 

D ,FF 

MAXZEICHEN =-255D 

2B87 

18 

03 



JR 

2B8C 

WEITER 

2B89 

03 




INC 

BC 

BUFFERZEIGER INC. 

2B8A 

IS 




DEC 

D 

MAXZEICHEN DEC., BUFFER VOLL? 

2B8B 

C8 




RET 

Z 

JA, FERTIG 

2B8C 

7E 




LD 

A,(HL) 

CODEBYTE LADEN 

2B8D 

B7 




OR 

A 

= ZEILENENDE? 

2B8E 

23 




INC 

HL 

CODEZEIGER INC. 

2B8F 

02 




LD 

(BC),A 

IN BUFFER UEBERTRAGEN 

2B9G 

C8 




RET 

Z 

JA, FERTIG 

2B91 

F2 

D2 

3F 


JP 

P,3FD2 

KEIN TOKEN? —> WEITER 

2B94 

FE 

FB 



CP 

FB 

= "'-TOKEN 

2B96 

20 

08 



JR 

NZ,2BA0 

NEIN 

2B98 

OB 




DEC 

BC 

:REM AUS BUFFER LOESCHEN: BUFFERZEIGER - 4 

2B99 

OB 




DEC 

BC 


2B9A 

OB 




DEC 

BC 


2B9B 

OB 




DEC 

BC 


2B9C 

14 




INC 

D 

MAXZEICHEN + 4 

2B9D 

14 




INC 

D 


2B9E 

14 




INC 

D 


2B9F 

14 




INC 

D 


2BAO 

FE 

9S 



CP 

95 

= ELSE-TOKEN? 

2BA2 

CC 

24 

OB 


CALL 

Z.0B24 

JA, ENTFERNEN: BUFFERZEIGER DEC 

2BA5 

Do 

7F 



SUB 

7F 

TOKEN - 7F ERGIBT NR. DES KEYWORDS 

2BA7 

E5 




PUSH 

HL 

CODEZEIGER RETTEN 

2BA8 

SF 




LD 

E,A 

NR. DES KEYWORDS NACH E 

2BA9 

CD 

AD 

39 


CALL 

39AD 

ANFANG DER KEYWORDTABELLE LADEN 

2BAC 

7E 




LD 

A,(HL) 

ZEICHEN LADEN 

2BAD 

B7 




OR 

A 

ANFANG DES NAECHSTEN KEYWORDS? 

2BAE 

23 




INC 

HL 

ZEIGER INC. 

2BAF 

F2 

AC 

2B 


JP 

P,2BAC 

NEIN, WEITER SUCHEN 

2BB2 

ID 




DEC 

E 

GEWUENSCHTES KEYWORD ERREICHT? 

2BB3 

20 

F7 



JR 

NZ,2BAC 

NEIN, WEITER SUCHEN 

2BB5 

E6 

7F 



AND 

7F s 

WORTANFANGSMARKIERUNG DES ERSTEN ZEICHENS ENTFERNEN 

2BB7 

02 




LD 

(BC),A 

ZEICHEN IN BUFFER 

2BB8 

03 




INC 

BC 

BUFFERZEIGER INC. 

2BB9 

IS 




DEC 

D 

MAXZEICHEN DEC., BUFFER VOLL? 

2BBA 

CA 

D8 

28 


JP 

Z,28D8 

JA, FERTIG 

2BBD 

7E 




LD 

A,(HL) 

ZEICHEN DES KEYWORDS LADEN 

2BBE 

23 




INC 

HL 

ZEIGER AUF NAECHSTES ZEICHEN 

2BBF 

B7 




OR 

A 

1. ZEICHEN DES NAECHSTEN KEYWORDS? 

2BCU 

F2 

B7 

2B 


JP 

P,2BB7 

NEIN, WEITER 

2BC3 

El 




POP 

HL 

CODEZEIGER ZURUECK 

2BC4 

18 

C6 



JR 

2B8C 

WEITER 





** 

DELETE- 

-BEFEHL 


2BC6 





PROGRAMZEILEN DORSCHEN 

CD 

10 

1B 


CALL 

1 Bl 0 

BEIDE ARGUMENTE ANALYSIEREN (1.ZEILENADRESSE NACH BC, 

2BC9 

Dl 




POP 

DE 

2.ZNR NACH DE 


2. ZNR IN STACK) 
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2BCA C5 

2BCB C5 


BUSH 

PUSH 

EC 

BC 

1.ZEILENADRESSE B MAL KETTEN 

2BCC CD 2C 

1B 

CALL 

1B2C 

2.ZEILENADRESSE ERMITTELN, ZEILE NICHT VORHANDEN? 

2BCF 30 05 


JR 

NC,2BD6 

JA, FC-ERROR 

2BD1 54 


LD 

D,H 

ANFANG DER NAECHSTEN ZEILE NACH DE 

2BD2 5D 


LD 

E.L 


2BD3 E3 


EX 

(SP),HL 

1.ZEILENADRESSE ZURUECK, 2.ZEILENADRESSE RETTEN 

2BD4 E5 


PUSH 

HL 

1.ZEILENADRESSE RETTEN 

2BD5 DP 


RST 

18 

1.ZNR <= 2.ZNR? 

2BD6 D2 4A 

IE 

JP 

NC,1E4A 

NEIN, FC-ERROR 

2BD9 21 29 

19 

LD 

HL,1929 

ZEIGER AUF TEXT 'READY' 

2BDC CD A7 

28 

CALL 

28A7 

TEXT 'READY' AUSGEBEN 

2BDP CI 


POP 

BC 

1.ZEILENADRESSE NACH BC 

2BE0 21 E8 

1A 

LD 

HL,1AE8 

RUECKSPRUNGADRESSE (ZUR HAUPTSCHLEIFE) 

2BE3 E3 


EX 

(SP),HL 

RETTEN UND 2.ZEILENADRESSE NACH HL 

2BE4 EB 


EX 

DE, HL 

2.ZEILENADRESSE NACH DE 

2BE5 2A F9 

40 

LD 

HL,(40F9) 

PROGRAMMTEXTENDE NACH HL 

2BE8 1A 


LD 

A,(DE) 

ZEICHEN LADEN 

2BE9 02 


LD 

(BC),A 

UND ABSPEICHERN 

2BEA 03 


INC 

BC 

ZEIGER INC. 

2BEB 13 


INC 

DE 


2BEC DF 


RST 

18 

PROGRAMMENDE ERREICHT? 

2BED 20 F9 


JR 

NZ,2BE8 

NEIN, WEITER 

2BEF 60 


LD 

H,B 

LETZTE ZIELADRESSE ALS NEUES PROGRAMMTEXTENDE ABSPEICHERN 

2BF0 69 


LD 

L,C 


2BF1 22 F9 

40 

LD 

(40F9),HL 


2BF4 C9 


RET 


;ZUR HAUPTSCHLEIFE 


** 

CSAVE-BEFEHL 




PROGRAMM AUF CASSETTE 

AUFZEICHNEN 

2BF5 CD 37 

23 

CALL 

2337 

FILENAMENAUSDRUCK AUSWERTEN 

2BF8 E5 


PUSH 

HL 

POINTER RETTEN 

2BF9 CD 13 

2A 

CALL 

2A13 

STRINGADRESSE NACH DE 

2BFC F5 


PUSH 

AF 

REGISTER RETTEN 

2BFD C5 


PUSH 

BC 


2BFE D5 


PUSH 

DE 


2BFF E5 


PUSH 

HL 


2C00 CD 3F 02 

CALL 

023F 

FILENAMEHEADER AUFZEICHNEN 

2C03 El 


POP 

HL 

, REGISTER ZURUECK 

2C04 Dl 


POP 

DE 


2C05 CI 


POP 

BC 


2C06 Fl 


POP 

AF 


2C07 1A 


LD 

A,(DE) 

1.ZEICHEN DES FILENAMEN LADEN 

2C08 CD 1F 

02 

CALL 

0^1 F 

UND AUFZEICHNEN 

2C0B 2A A4 

40 

LD 

HL,(40A4) 

PROGPAMMTEXTANFANG NACH DE 

2C0E EB 


EX 

DE, HL 


2C0F 2A F9 

40 

LD 

HL (40F9) 

PROGRAMMTEXTENDE NACH HL 

2C12 1A 


LD 

A, DE) 

PROGRAMMTEXTBYTE LADEN 

2C13 13 


INC 

DE 

ZEIGER INC. 

2C14 CD 1F 

02 

CALL 

021F 

AUFZEICHNEN 

2C17 DF 


RST 

18 

PROGRAMMTEXTENDE ERREICHT? 

2C18 20 F8 


JR 

NZ,2C12 

NEIN, WEITER 

2C1A 00 00 

00 

NOP NOP 

NOP 


2C1D El 


POP 

HL 

POINTER ZURUECK 

2C1E C9 


RET 




** 

CLOAD-BEFEHL 




PROGRAMM VON CASSETTE 

LADEN 

2C1F 00 00 

00 

NOP NOP 

NOP 


2C22 00 00 

00 

NOP NOP 

NOP 


2C25 00 00 


NOP NOP 



2C27 AF 


XOR 

A 

; VERIFY-FLAG LOESCHEN 

2C28 01 2F 

23 

LD 

BC.232F 


(2C29 2F 


CPL 


;VERIFY-FLG SETZEN) 

(2C2A 

23 

INC 

HL 

;POINTER INC.) 

2C2B F5 


PUSH 

AF 

; VERIFY-FLAG RETTEN 

2C2C 2B 


DEC 

HL 

;POINTER DEC. 

2C2D D7 


RST 

10 

;NAECHSTES ZEICHEN, ANWEISUNGSENDE? 

2C2E 3E 00 


LD 

A,00 

; FILENAMEN LOESCHEN 

2C30 28 07 


JR 

Z,2C39 

;JA, KEIN FILENAME 

2C32 CD 37 

23 

CALL 

2337 

; FILENAMENAUSDRUCK AUSWERTEN 

2C35 CD 13 

2A 

CALL 

2A13 

; STRINGADRESSE NACH DE 

2C38 1A 


LD 

A,(DE) 

;1.ZEICHEN DES FILENAMEN LADEN 

2C39 6F 


LD 

L,A 

;NACH L 

2C3Ä Fl 


POP 

AF 

; VERIFY-FLAG ZURUECK 

2C3B B7 


OR 

A 

;UND NACH H 

2C3C 67 


LD 

H,A 


2C3D 22 21 

41 

LD 

(4121),HL 

;FILENAMEN UND VERIFY-FLAG ABSPEICHERN 

2C40 CC 4D 

1B 

CALL 

Z,1B4D 

;KEIN VERIFY? —> NEW 

2C43 2A 21 

41 

LD 

HL,(4121) 

; VERIFY-FLAG UND FILENAMEN LADEN 

2C46 EB 


EX 

DE, HL 

;VERIFY-FLAG NACH D, FILENAME NACH E 

2C47 F5 


PUSH 

AF 

;REGISTER RETTEN 

2C48 C5 


PUSH 

BC 


2C49 D5 


PUSH 

DE 


2C4A E5 


PUSH 

HL 


2C4B CD 4C 

02 

CALL 

024C 

;ZEICHEN VON CASSETTE LESEN 

2C4E El 


POP 

HL 

;REGISTER ZURUECK 

2C4F D5 


POP 

DE 


2C50 CI 


POP 

BC 


2C51 Fl 


POP 

AF 


2C52 CD ED 

01 

CALL 

01 ED 

;FILENAMEN LADEN 

2C55 IC 


INC 

E 

;WURDE BEI CLOAD FILENAME ANGEGEBEN? 

2^56 ID 


DEC 

E 


2C57 28 03 


JR 

Z,2C5C 

;NEIN 

2C59 BB 


CP 

E 

;= GELADENEM FILENAMEN? 

2C5A 20 37 


JR 

NZ.2C93 

;NEIN 



PROGRAMMTEXT LADEN ODER MIT RESIDENTEM PROGRAMMTEXT VERGLEICHEN 

2C5C 2A A4 

40 

LD 

HL,(40A4) 

;PROGRAMMTEXTANFANG NACH HL 
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TJd 

"DT 



DD 

B,U3 

'ZAEHLER' =“T 

- 

2C61 

CD 

EE 

01 


CALL 

01 EP 

ZEICHEN VON GASSETTE LESEN 


2C64 

5F 




LD 

E,A 

NACH E 


2C65 

96 




SUB 

(HL) 

<> ZEICHEN AUS RESIDENTEM PROGRAMMTEXT 


2C66 

A 2 




AND 

D 

UND VERIFY-FLAG GESETZT? 


2C67 

20 

21 



JR 

NZ,2C8A 

JA, VERIFY-ERROR 


2C69 

73 




LD 

(hl),e 

NEIN, GELESENES ZEICHEN ABSPEICHERN 


2C6A 

CD 

6C 

19 


CALL 

196C 

NICHT MEHR GENUEGEND SPEICHER? —> OM-ERROR 

2C6D 

7E 




LD 

A,(HL) 

ZE T LENENDE (ODER 0 IN ZNR) 


2C6E 

B7 




OR 

A 



2C6F 

23 




INC 

HL 

ZEIGER INC. 


2C70 

20 

ED 



JR 

NZ,2C5F 

NEIN, ZAEHLER WIEDER AUF 3 SETZEN 


2C72 

CD 

E4 

01 


CALL 

01E4 

STERN UMSCHALTEN 


2C75 

10 

EA 



DJNZ 

2C61 

NOCH KEINE 3 NULLEN? —> WEITER 


2C77 

22 

F9 

40 


LD 

(40F9),HL 

PROGRAMMTEXTENDE ABSPEICHERN 


2C7A 

21 

29 

19 


LD 

HL,1929 

ZEIGER AUF TEXT 'READY' 


2C7B 

CD 

A7 

28 


CALL 

28A7 

TEXT 'READY' AUSGEBEN 


2C80 

00 

00 

00 


NOP NOP 

NOP 



2C83 

2A 

A4 

40 


LD 

HL,(40A4) 

PROGRAMMTEXTANFANG AUF STACK 


2C86 

E5 




PUSH 

HL 



2C87 

C3 

E8 

1 A 


JP 

1AE8 

SPRUNG ZUM ENDE DER HAUPTSCHLEIFE DAMIT 

ZEILENZEIGER ERNEUERT WERDEN 






VERIFY- 

ERROR 



2C8A 

21 

A5 

2C 


LD 

HI.2CA5 

ZEIGER AUF TEXT 'BAD' 


2C8D 

CD 

79 

35 


CALL 

3579 

TEXT 'BAD' AUSGEBEN 


2C90 

C3 

18 

1A 


JP 

1 AI 8 

ZUR HAUPTSCHLEIFE 







NAECHSTES FILE SUCHEN 



2C93 

32 

26 

44 


LD 

(4426),A 

FILENAME DES LEZTEN PROGRAMMES IN OBERE 

RECHTE BILDSCHIRMECKE 

2C96 

Ob 

03 



LD 

B ,03 

FILEENDE (3 NULLEN) SUCHEN: ZAEHLER = 3 


2C98 

CD 

ED 

01 


CALL 

01 ED 

ZEICHEN VON CASSETTE LESEN 


2C9B 

B7 




OR 

A 

= NULL? 


2C9C 

20 

F8 



JR 

NZ,2C96 

NEIN, ZAEHLER WIEDER AUE 3 


2C9E 

10 

F8 



DJNZ 

2C98 

NOCH KEINE DREI NULLEN? —> WEITER 


2CAO 

00 

00 

00 


NOP NOP 

NOP 



2CA3 

18 

A2 



JR 

2C47 

WEITER 







TEXT 




2CA5 

42 

41 

44 

OD 

00 


BAD.. 






** 

PEEK-FJNKTION 








INHALT 

ÜINER SPEICHERZELLE LADEN 


2CAA 

CD 

7F 

OA 


CALL 

0A7F 

ARGUMENT IN INTEGER UMWANDELN (NACH HL) 


2CAD 

7E 




LD 

A, (HL) 

INHALT DER GEWUENSCHTEN SPEICHERZELLE NACH A 

2CAE 

C3 

F8 

27 


JP 

27F8 

ALS ERGEBNIS NACH X 






** 

POKE-ANWEISUNG 








WERT IN 

SPEICHERZELLE 

SCHRE T BEN 


2CB1 

CD 

02 

2B 


CALL 

2B02 

ADRESSENAUSDRUCK AUSWERTEN UND ERGEBNIS 

IN INTEGER UMWANDELN (NACH DE) 

2CB4 

D5 




PUSH 

DE 

ADRESSE RETTEN 


20B5 

CF 




RST 

08 

SYNTAXCHECK:’POINTER AUF ',' 


2CB6 

2C 








2CB7 

CD 

IC 

2B 


CALL 

2B1C 

WERTAUSDRUCK AUSWERTEN, GANZZAHLIGES ERGEBNIS (< 256D NACH A 

2CBA 

Dl 




POP 

DE 

ADRESSE ZURUECK 


2CBB 

12 




LD 

(DE),A 

WERT UNTER DIESER ADRESSE ABSPEICHERN 


2CBC 

C9 




RET 








** 

USING-ANWEISUNG 








FORMATIERTE AUSGABE 



2CBD 

CD 

38 

23 


CALL 

2338 

FORMATSTRINGAUSDRUCK AUSWERTEN 


2CC0 

CD 

F4 

OA 


CALL 

0AF4 

ERGEBNIS KEIN STRING? —> TM-ERROR 


2CC3 

CF 




RST 

08 

SYNTAXCHECK: POINTER AUE ';'? 


2CG4 

3B 






‘ 


2CC5 

EB 




EX 

DE, HL 

POINTER NACH DE 


2CC6 

2A 

21 

41 


LP 

HL,(4121) 

STRINGZEIGER LADEN 


2CC9 

18 

08 



JR 

2CD3 

WEITER 







WEITERE 

AUSGABEN MIT GLEICHEM FORMATSTRING 


2CCB 

3A 

DE 

40 


LD 

A,(40DE) 

NAECHSTES ZEICHEN LADEN 


2CCE 

B7 




OR 

A 

= ANWEISUNGSENDE? 


2CCF 

28 

OC 



JR 

Z,2CDD 

JA, FC-ERROR 


2CD1 

Dl 




POP 

DE 

STRINGZEIGER ZURUECK 


2CD2 

EE 




EX 

DE, HL 

NACH HL 


2CB3 

E5 




PUSH 

HL 

STRINGZEIGER RETTEN 


2CD4 

AF 




XOR 

A 

LETZTES ZEICHEN LOESCHEN 


2 CD 5 

32 

DE 

40 


LD 

(40DE),A 



2CP8 

BA 




CP 

D 

CONTFLAG Z LOESCHEN UND CY SETZEN 


2CD9 

F5 




PUSH 

AF 

UND RETTEN 


2CDA 

Db 




PUSH 

DE 

POINTER RETTEN 


2CDB 

46 




LD 

B, (HL) 

STRINGLAENGE LADEN 


2CDC 

BO 




OR 

B 

STRINGLAENGE = 0? 


2CDD 

CA 

4A 

IE 


JP 

Z, 1E4A 

JA, EC-ERROR 


2 CEO 

23 




INC 

HL 



2CE1 

4E 




LD 

c, (hl) 

STRINGADRESSE NACH HL LADEN 


2CE2 

23 




INC 

HL 



2CE3 

66 




LD 

H,(HL) 

(MSB) 


2CE4 

6Q 




LP 

L,C 

(LSB) 


2CE5 

18 

IC 



JR 

2D03 

WEITER 







'^'-FELDLAENGE BESTIMMEN 


2CE7 

58 




LD 

E,B 

STRINGLAENGE NACH E 


2CE8 

E5 




PUSH 

FL 

ZEIGER RETTEN 


2CE9 

OE 

02 



LD 

C ,02 

ZEICHENANZAHL = 2 (FUER BEGRENZENDE '#' 


2CEB 

7E 




LD 

A,(HL) 

ZEICHEN LADEN 


2CEC 

23 




INC 

Hl 

ZEIGER INC. 


2CED 

FE 

25 



CP 

25 

= '$'? 


2 CEF 

CA 

17 

2E 


JP 

Z.2E17 

JA, FORMATIERTEN STRING AUSGEBEN 


2CF2 

FE 

20 



CP 

20 

= 1 '9 


2CF4 

20 

03 



JP 

NZ,2CF9 

NEIN, FEHLER, WI’ITER 
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ZCFb 

LKJ 


inc 

u 

ZETCHENSNZSHE INC. 

2CF7 

10 

F2 

DJNZ 

2CEB 

STRINGLAENGE DEC., > 0? —> WEITER 

2CF9 

El 


POP 

HL 

FEHLER IN 'jT-FELD: ZEIGER ZURUECK 

2CFA 

43 


LD 

B,E 

STRINGLAENGE ZURUECK 

2CFB 

3E 

25 

LD 

A,25 

AUSGEBEN 




ANFANG 

EINES STRING- ODER NUMMERNFELDES SUCHEN 

2CFD 

CD 

49 2E 

CALL 

2E49 

'+' AUSSERHALB NUMMERNFELD AUSGEBEN 

2DOO 

CD 

2A 03 

CALL 

032A 

ZEICHEN AUSGEBEN 

2D03 

AF 


XOR 

A 

A = 0 

2D04 

5F 


LD 

E,A 

FELDLAENGE = 0 

2D05 

37 


LD 

D,A 

FORMATFLAG = 0 

2D06 

CD 

49 2E 

CALL 

2E49 

'+' AUSSERHALB NUMMERNFELD AUSGEBEN 

2D09 

57 


LD 

D, A 

FORMATFLAG NACH D 

2D0A 

7E 


LD 

A,(HL) 

ZEICHEN AUS .STRING LADEN 

2D0B 

23 


INC 

k£ 

ZEIGER INC. 

2DOG 

FE 

21 

CP 

21 

k ' > '? 

2DOE 

CA 

14 2E 

JP 

Z.2E14 

JA, ERSTES ZEICHEN VON STRING DRUCKEN 

2D11 

FE 

23 

CP 

2$ 

= V? 

2D13 

28 

37 

JR 

Z,2D4C 

JA, NUMMERFELD ANALYSIEREN 

2D15 

05 


DEC 

B 

STRINGLAENGE - 1, =0? 

2D16 

CA 

FE 2D 

JP 

Z,2DFE 

JA. STRINGENDE 

2D1 9 

FE 

2B 

CP 

2B 

= V? 

21)1 B 

3E 

08 

LD 

A,08 

FORMATFLAG = 8 

2D1D 

28 

E7 

JR 

Z,2D06 

WEITER 

2D1F 

2B 


DEC 

HL 

ZEICHEN NOCHMALS LADEN 

2D20 

7E 


LD 

A,(HL) 


2D21 

23 


INC 

HL 


2D22 

FE 

2E 

CP 

2E 

= '.'? 

2D24 

28 

40 

JR 

Z.2D66 

JA. NÄCHKOMMASTELLENANZAHL BESTIMMEN 

2D26 

FE 

25 

CP 

25 

= v? 

2D28 

28 

BD 

JR 

Z,2CE7 

JA, STRING FORMATIEREN 

2D2A 

BE 


CP 

(HL) 

= NAECHSTES ZEICHEN? 

2D2B 

20 

DO 

JR 

NZ,2CFD 

NEIN. WEITER 

2D2D 

FE 

24 

CP 

24 

= '$$'? 

2D2F 

28 

14 

JR 

Z,2D45 

JA, FORMATFLAG SETZEN 

2D31 

FE 

2A 

CP 

2A 

- '**"9 

2D33 

20 

C8 

JR 

NZ,2CFD 

NEIN, WEITER 

2D35 

78 


LD 

A.B 

LETZTES ZEICHEN NOCH IM FORMATSTRING? 

2D3 b 

FE 

02 

CP 

02 


2D38 

23 


INC 

HL 

ZEIGER AUF NAECHSTES ZEICHEN 

2D39 

38 

03 

JR 

C.2D3E 

NEIN 

2D3B 

7E 


LD 

A,(HL) 

ZEICHEN LADEN 

2D3C 

FE 

24 

CP 

24 

= '$'? 

2D3E 

3E 

20 

LD 

A,20 

BIT 5 DES FORMATFLAG FUER SETZEN 

2D40 

20 

07 

JR 

NZ.2D49 

NEIN 

2D42 

05 


DEC 

B 

STRINGLAENGE - 1 

2D43 

IC 


INC 

E 

NUMMERNFELDLAENGE INC. 

21)44 

FE 

AF 

CP 

AF 


(2D45 

AF 

XOR 

A 

FORMATFLAG LOESCHEN 

2D46 

C6 

10 

ADD 

10 

BIT 4 DES FORMATFLAGS FUER '$' SETZEN 

2D48 

23 


INC 

HL 

ZEIGER INC. 

2D49 

IC 


INC 

E 

NUMMERNFELDLAENGE INC. 

2Ü4A 

82 


ADD 

D 

FORMATFLAG MIT LETZTEM FORMATFLAG VERKNUEPFEN 

2D4B 

57 


LD 

D,A 

NACH D 

2D4C 

IC 


INC 

E 

NUMMERFELDLAENGE INC. 

2D4D 

OE 

00 

LD 

C,00 

ANZAHL DER NACHKOMMASTELLEN = 0 

2D4F 

05 


DEC 

B 

STRINGLAENGE DEC., = 0? 

2D50 

28 

47 

JR 

Z,2D99 

JA, FORMATSTRING ÄUSGEWERTET, AUSGABE 

2D52 

7E 


LD 

A,(HL) 

ZEICHEN LADEN 

2D53 

23 


INC 

HL 

ZEIGER INC. 

2D54 

FE 

2E 

CP • 

2E 

= '.'? 

21)3 fa 

28 

18 

JR 

Z.2D70 

JA, ANZAHL DER NACHKOMMASTELLEN ERMITTELN 

2D58 

FE 

23 

CP 

23 

= V? 

2D5A 

28 

FO 

JR 

Z,2D4C 

JA, NUMMERNFELD WEITER AUSWERTEN 

2D5C 

FE 

2C 

CP 

2C 

= 

2D5E 

20 

1A 

JR 

NZ.2D7A 

NEIN, NUMMERFELDENDPARAMETER AUSWERTEN 

2D60 

7A 


LD 

A,D 

BIT 6 VON FORMATFLAG FUER ' , ' SETZEN 

2D61 

F6 

40 

OR 

46 


2D63 

57 


LD 

D.A 


2D64 

18 

E6 

JR 

2D4C 

WEITER 




ANZAHL 

DER NACHKOMMASTELLEN BESTIMMEN 

2D66 

7E 


LD 

A,(HL) 

ZEICHEN LADEN 

2D67 

FE 

23 

CP 

2$ 

= '§'? 

2D69 

3E 

2E 

LD 

A,2E 


2D6B 

20 

90 

JR 

NZ.2CFD 

NEIN. AUSGEBEN 

2D6D 

OE 

01 

LD 

C,01 

ZAEHLER FUER NACHKOMMASTELLEN = 1 (FUER '.') 

2D6F 

23 


INC 

Hi 

ZEIGER INC. 

2D70 

OC 


INC 

C 

NACHKOMMASTELLENZAEHLER INC. 

2D71 

05 


DEC 

B 

STRINGLAENGE DEC., = 0? 

2D72 

28 

25 

JR 

Z.2D99 

JA, FORMATSTRINGENDE, AUSGABE 

2D74 

7E 


LD 

A,(HL) 

ZEICHEN LADEN 

2D75 

23 


INC 

Hl 

ZEIGER INC. 

2D76 

FE 

23 

CP 

23 

- '§'? 

2D78 

28 

F6 

JR 

Z f 2D70 

JA, WEITER 




NUMMERNFELDENDPARAMETER AUSWERTEN 

2D7A 

D5 


PUSH 

DE 

FORMATFLAG RETTEN 

2D7B 

11 

97 2D 

LD 

DE.2D97 

RUECKSPRUNGADRESSE SETZEN 

2D7E 

D5 


PUSH 

DE 


2D7F 

54 


LD 

D,H 

ZEIGER NACH DE 

2D80 

5D 


LD 

E,L 


2D81 

FE 

5B 

CP 

5B 

LETZTES ZEICHEN = UP ARROW? 

2D83 

CO 


RET 

NZ 

;NEIN 

2D84 

BE 


CP 

(HL) 

;JA, NAECHSTEN 3 AUCH? 

2D85 

CO 


RET 

NZ 

;NEIN 

2D86 

23 


INC 

HL 


2D87 

BE 


CP 

(HL) 
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ZDBB-CO- -RET-NE-fNEIN 


2D89 

23 



INC 

HL 


2D8A 

BE 



CP 

(HL) 


2D8B 

CO 



RET 

NZ 

NEIN 

2D8C 

23 



INC 

HL 


2D8D 

78 



LD 

A,B 

STRINGLAENGE < 4? 

2D8E 

D6 

04 


SUB 

04 


2D90 

D8 



RET 

C 

JA, 4 PFEILE INGNORIEREN 

2D91 

Dl 



POP 

DE 

RUECKSPRUNGADRESSE AUS STACK ENTFERNEN 

2D92 

Dl 



POP 

DE 

FLAG ZURUECK 

2D Q 3 

47 



LD 

B,A 

STRINGLAENGE - 4 

2D94 

14 



INC 

D 

EIT 1 VON FORMATPLAG FUER EXPONENTENAUSGABE SETZEN 

2D95 

23 



INC 

HL 

ZEIGER INC. 

2D96 

CA 

EB 

Dl 

JP 

Z,D1EB 

WIRD NIE AUSGEFUEHRT (INC D) 

(2D96 

EB 


EX 

DE, HL 

ZEIGER NACH HL ZURUECK) 

(2D97 


Dl 

POP 

DE 

FLAG ZURUECK) 

2D99 

7A 



LD 

A.D 

FORMATFLAG NACH A 

2D9A 

2B 



DEC 

h£ 

ZEIGER DEC. 

2D9B 

IC 



INC 

E 

NUMMERNFELDLAENGE INC. 

2D9C 

E6 

08 


AND 

08 

'+'-BIT GESETZT? 

2D9E 

20 

15 


JR 

NZ.2DB5 

JA 

2DAO 

ID 



DEC 

E 

NUMMERNFELDLAENGE DEC. 

2DA1 

78 



LD 

A,B 

STRINGLAENGE = 0? 

2DA2 

B7 



OR 

A 


2DA3 

28 

10 


JR 

Z,2DB5 

JA, FORMATSTRING AUSGEWERTET, AUSGABE 

2DA5 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 

2DA6 

D6 

2D 


SUB 

2D 

= '-'9 

2DA8 

28 

06 


JR 

Z,2DB0 

JA 

2DAA 

FE 

FE 


CP 

FE 

= '+'? 

2DAC 

20 

07 


JR 

NZ,2DB5 

NEIN, AUSGABE 

2DAE 

3E 

08 


LD 

A ,08 

BIT 3 VON FORMATFLAG FUER '+' SETZEN 

2DB0 

C6 

04 


ADD 

04 

BIT 2 VON PORMATPLAG FUER VORZEICHEN HINTER ZAHL SETZEN 

2DB2 

82 



ADD 

D 

ZU GESAMTFORMATFLAG ZUSAMMENFUEGEN 

2DB3 

57 



LD 

D,A 

NACH D 

2DB4 

05 



DEC 

B 

STRINGLAENGE - 1 

2DB5 

El 



POP 

HL 

POINTER ZURUECK 

2DB6 

Fl 



POP 

AF 

CONT-FLAG ZURUECK 

2DB7 

28 

50 


JR 

Z,2E09 

ANWEISUNGSENDE? —> FERTIG 

2DB9 

C5 



PUSH 

BC 

STRINGLAENGE UND NACHKOMMASTELLEN RETTEN 

2DBA 

D5 



PUSH 

DE 

FORMATFLAG UND NUMMERNEELDLANGE RETTEN 

2DBB 

CD 

37 

23 

CALL 

2337 

AUSDRUCK AUSWERTEN (ZU FORMATIERENDE ZAHL) 

2DBE 

Dl 



POP 

DE 

FLAG UND NUMMERNFELDLAENGE ZURUECK 

2DBF 

CI 



POP 

BC 

RESTSTRINGLAENGE UND NACHKOMMASTELLEN ZURUECK 

2DC0 

05 



PUSH 

BC 

UND WIEDER RETTEN 

2DC1 

E5 



PUSH 

HL 

POINTER WIEDER RETTEN 

2DC2 

43 



LD 

B,E 

NUMMERNFELDLAENGE NACH B 

2DC3 

78 



LD 

A,B 

+ NACHKOMMASTELLEN 

2DC4 

81 



ADD 

C 


2DC5 

FE 

19 


CP 

19 

GESAMTFELDLAENGE >= 25D? 

2DC7 

D2 

4A 

IE 

JP 

NC,1E4A 

JA, FC-ERROR 

2BC/ 

7A 



LD 

A,D 

FORMATFLAG NACH A 

2DCB 

F6 

80 


OR 


BIT 7 SETZEN, DAMIT UEBERHAUPT FORMATIERT WIRD 

sr^D 

CD 

BF 

OF 

CALL 

OFBE 

ZAHL IN FORMATIERTEN STRING UMWANDELN 

2DDG 

CD 

kl 

28 

CAlL 

28A7 

UND DIESEN AUSGEBEN 

2DD3 

Fl 



POP 

HL 

POINTER ZURUECK 

2DD4 

2B 



DEC 

HL 

POINTER DEC. 

2BD5 

D7 



PST 

10 

NAECHSTES ZEICHEN, ANWEISUNGSENDE? 

2DD6 

37 



SCF 


CY IN CONT FLAG SETZEN (FUER CR) 

2DD7 

28 

OD 


JR 

Z.2DE6 

JA 

2DD9 

32 

DE 

40 

LD 

(40DE),A 

ZEICHEN ABSPEICHERN 

2DDC 

FE 

3B 


CP 

3B 

= *’•*’? 

2DDE 

28 

05 


JP 

Z,2DE5 

JA 

2DEO 

FE 

2C 


CP 

2C 

- ' '? 

2DE2 

C2 

97 

19 

JP 

NZ,1997 

NEIN, SN-ERROR 

2DE5 

D7 



RST 

10 

NAECHSTES ZEICHEN 

2DE6 

CI 



POP 

BC 

STRINGZAEKLER ZURUECK 

2DE7 

EB 



EX 

DE, HL 

POINTER NACH DE 

2DE8 

El 



por 

HL 

STRINGZEIGER ZURUECK 

2DE9 

E5 



PUSH 

HL 

UND WIEDER RETTEN 

2DEA 

F5 



PUSH 

AP 

CONT-FLAG RETTEN 

2DEB 

D5 



PUSH 

DE 

POINTER WIEDER RETTEN 

2DEC 

7E 



LD 

A,(HL) 

URSPRUENGLICKE STRINGLAENGE NACH A 

2DED 

90 



SUB 

B 

- STRINGLAENGE ERGIBT ANZAHL DER VERARBEITETEN ZEICHEN 

2DEF 

23 



INC 

HL 


2DEF 

4E 



LD 

c,( hl) 

STRINGADRESSE LADEN (NACH HL) 

2DFO 

2 7 



INC 

HL 


2EF1 

66 



LD 

H,(HL) 

(MSB) 

2DE2 

69 



LD 

L,C 

(LSB) 

2DF3 

16 

00 


LD 

D,00 

ANZAHL DER VERARBEITETEN ZEICHEN 

2DF5 

5F 



LD 

E, A 

NACH DE 

2DP6 

19 



ADD 

HL, DE 

AUF STRINGADRESSE ADDIEREN ERGIBT ADRESSE DES RESTSTRINGS 

2DF7 

78 



LD 

A,B 

RESTSTPINGLAENGE > 0? 

2DF8 

B7 



OR 

A 


2DF9 

C2 

03 

2D 

JP 

NZ,2D03 

JA, WEITER 

2DFC 

18 

06 


JR 

2E04 

NEIN, FERTIG 





FORMA 

T3TRINGENDF 


2DFE 

CD 

Aq 

2E 

CALL 


'+' AUSSERHALB NUMMERNFELD AUSGEBEN 

2F01 

CD 

2A 

03 

CALL 

C32Ä 

ZEICHEN AUSGEBEN 

2E04 

El 



FOP 

HL 

POINTER ZURUECK 

2EC5 

Fl 



POP 

AF 

CONT-FLAG ZURUECK, ANWEISUNGSENDE? 

2E06 

C2 

CB 

2C 

JP 

NZ,2CCB 

NEIN, NAECHSTE ZAHL MIT GLEICHEM FORMATSTRING FORMATIEREN 

2EC9 

DC 

FF 

20 

CALL 

C.20FE 

CY IN CONT-FLAG GESETZT? —> CR AUSGEBEN 

2EOC 

E3 



EX 

(SP),EL 

POINTER RETTE!,, STRINGADRESSE ZURUECK 

2EOD 

CD 

DD 

29 

CALL 

29DD 

FORMATSTRING AÜS STRINGSPACE UND ZWISCHENSPEICHER LOESCHEN 

2E10 

El 



POP 

HL 

POINTER ZURUECK 

2E11 

C3 

69 

21 

JP 

2169 

AUSGABE-FLAG AUE DISPLAY ZURUECK UND FERTIG 


STRINGFORMATIERUNG 


Seite 85 










ROM-Listing für 

TETTWTTT- 

2E16 3E Fl 
(2E17 
2E18 05 
2E19 CD 49 2E 
2E1C El 
2E1D Fl 
2E1E 28 E9 
2E20 C5 
2E21 CD 37 23 
2E24 CD F4 OA 
2E27 CI 
2E28 C5 
2E29 E5 
2E2A 2A 21 41 
2E2D 41 
2E2E OE 00 
2E30 C5 
2E31 CD 68 2A 
2E34 CD AA 28 
2E37 2A 21 41 
2E3A Fl 
2E3B 96 
2E3C 47 
2E3D 3E 20 
2E3F 04 
2E40 05 
2E41 CA D3 2D 
2E44 CD 2A 03 
2E47 18 F7 


2E49 F5 
2E4A 7A 
2E4B B7 
2E4C 3E 2B 
2E4E C4 2A 03 
2E51 Fl 
2E52 C9 


2E53 32 9A 40 
2E56 2A EA 40 
2E59 B4 
2E5A A5 
2E5B 3C 
2E5C EB 
2E5D C8 
2E5E 18 04 


2E60 CD 4F IE 
2E63 CO 
2E64 El 
2E65 EB 
2E66 22 EC 40 
2E69 EB 
2E6A CD 2C 1B 
2E6D D2 D9 IE 
2E70 60 
2E71 69 
2E72 23 
2E73 23 
2E74 4E 
2E75 23 
2E76 46 
2E77 23 
2E78 C5 
2E79 CD 7E 2B 
2E7C El 
2E7D E5 
2E7E CD AF OF 
2E81 3E 20 
2E83 CD 2A 03 
2E86 2A A7 40 
2E89 3E OE 
2E8B CD 2A 03 
2E8E E5 
2E8F OE FF 
2E91 OC 
2E92 7E 
2E93 B7 
2E94 23 
2E95 20 FA 
2E97 El 
2E98 47 


2E99 16 00 
2E9B CD 84 03 
2E9E D6 30 
2EA0 38 OE 
2EA2 FE OA 
2EA4 30 OA 
2EA6 5F 
2EA7 7A 
2EA8 07 
2EA9 07 


COLOUR- 

-ED- 


LD 

POP 

DEC 

CALL 

POP 

POP 

JR 

PUSH 

CALL 

CALL 

POP 

PUSH 

PUSH 

LD 

LD 

LD 

PUSH 

CALL 

CALL 

LD 

POP 

SUB 

LD 

LD 

INC 

DEC 

JP 

CALL 

JR 


■GE NIE 
C ,U1 


A, F1 
AF 

B 

2E49 

HL 

AF 

Z,2E09 

BC 

2337 

0AF4 

BC 

BC 

HL 

HL,(4121 ) 

B, C 

k 00 

2A68 

28AA 

HL,(4121) 

AF 

(HL) 

B,A 

A,20 

B 

B 

Z, 2DD3 

032A 

2E40 


Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 
-;ANSEHUNG—!"V ZEICHEN AN ZAHL = 1- 


ANSPRUNG : STACKKORREKTUR, ZEICHENANZAHL IN C) 

STRINGLAENGE -1 

'+' AUSSERHALB NUMMERFELD AUSGEBEN 
POINTER ZURUECK 
CONT-FLAG ZURUECK 
ANWEISUNGSENDE? —> FERTIG 
STRINGLAENGE RETTEN 

AUSDRUCK AUSWERTEN (ZU FORMATIERENDER STRING) 

ERGEBNIS KEIN STRING? —> TM-ERROR 
STRINGLAENGE ZURUECK 
UND WIEDER RETTEN 
POINTER RETTEN 

STRINGZEIGER DES ZU FORMATIERENDEN STRINGS LADEN 
ZEICHENANZAHL ALS 2.ARG FUER LEFT$ NACH B 
LEFTOFFSET = 0 
BEIDE PARAMETER RETTEN 

STRING FORMATIEREN: DAS 1. ('!') ODER DIE ERSTEN ZEICHEN ('£') ABTRENNEN (LEFTS 

FORMATIERTEN STRING AUSGEBEN 

STRINGZEIGER DES FORMATIERTEN STRINGS NACH HL 

ZEICHENANZAHL NACH A 

LAENGE DES FORMATIERTEN STRINGS - ZEICHENANZAHL 
DIFFERENZ NACH B 
LEERZEICHEN NACH A 
DI FFE RENZ = 0? 

DIFFERENZ - 1 
JA, WEITER 

LEERZEICHEN AUSGEBEN 
WEITER 


UP FUER USING 
PUSH AF 

LD A,D 

OR A 

LD A,2B 

CALL NZ,032A 
POP AF 

RET 


AF RETTEN 

BIT IN FORMATFLAG GESETZT 
(KANN NUR '+'-BIT SEIN) 

+' NACH A 
JA, AUSGEBEN 
AF ZURUECK 


9 


EDIT-ANSPRUNG NACH SN-FEHLERN 


LD 

(409A),A 

;FEHLERCODE LOESCHEN 

LD 

HL,(40EA) 

;FEHLER-ZNR LADEN 

OR 

H 

FFFF? 

AND 

L 

;(DIREKTMODE) 

INC 

EX 

A 

DE, HL 

; FEHLER-ZNR NACH DE 

RET 

Z 

;JA, KEIN-EDIT MOEGLICH 
;SPRUNG IN EDIT-BEFEHL 

JR 

2E64 


ZURUECK 


EDIT-BEFEHL 
ZEILENEDITOR FUER 


CALL 

RET 

POP 

EX 

LD 

EX 

CALL 

JP 

LD 

LD 

INC 

INC 

LD 

INC 

LD 

INC 

PUSH 

CALL 

POP 

PUSH 

CALL 

LD 

CALL 

LD 

LD 

CALL 

PUSH 

LD 

INC 

LD 

OR 

INC 

JR 

POP 

LD 


1E4F 

NZ 

HL 

DE, HL 

(40EC),HL 

DE, HL 

1B2C 

NC,1ED9 

H,B 

L.C 

HL 

HL 

c, (hl) 

HL 

B,(HL) 

HL 

BC 

2B7E 

HL 

KL 

OFAF 

A,20 

032A 

HL,(40A7) 

A,OE 

032A 

HL 

C ,FF 

C 

A, (HL) 

A 

HL 

NZ.2E91 

HL 

B, A 


PROGRAMMZEILEN 

;ZNR DECODIEREN 

;WEITERE ZEICHEN? —> ZURUECK, FEHLER 
;RUECKSPRUNGADRESSE ENTFERNEN 
;ZNR ALS '.'-ZEILE ABSPEICHERN 


;ZEILE IM PROGRAMMTEXT SUCHEN, ZEILE VORHANDEN? 
;NEIN, UL-ERROR 
;ZEILENADRESSE NACH HL 

;ZEILENZEIGER IGNORIEREN 

;ZNR LADEN (NACH BC) 

;(MSB) 

;ZNR RETTEN 

;CODE IN TEXT UMWANDELN (IN i/O-BUFFER) 

;ZNR ZURUECK (NACH HL) 

;UND WIEDER RETTEN 
;ZNR AUSGEBEN 
;1 LEERZEICHEN AUSGEBEN 

;I/O-BUFFERANFANG NACH HL 
;CURSOR ON 

;I/O-BUFFERANFANG RETTEN 
;LAENGE DER ZEILE BESTIMMEN: LAENGE = -1 
;LAENGE + 1 
;ZEICHEN LADEN 
;= ZEILENENDE? 

;BUFFERZ. INC. 

;NEIN, WEITER 

;ZEIGER AUF BUFFERANFANG ZURUECK 
;CURSORPOS = 0 


EINGABE 

ZIFFERN VERARBEITEN 


LD 

D.00 

ZAHL = 0 


CALL 

0384 

AUF NEUEN TASTENDRUCK 

WARTEN 

SUB 

30 

ZIFFER? 


JR 

CP 

C,2EB0 

OA 

NEIN 


JR 

NC,2EB0 

NEIN 


LD 

E,A 

ZIFFER NACH E 


LD 

RLCA 

RLCA 

A,D 

ZAHL * 10D: ZAHL NACH 
* 4 

A 


CODE NACH A 
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FEST 

~8Z 



-JQTD- 

U 

•+ ZAHL 

2EAB 

07 



RLCA 


* 2 

2EAC 

83 



ADD 

E 

ZIFFER ADDIEREN 

2EAD 

37 



LD 

D,A 

NEUE ZAHL = 10D * ZAHL + ZIFFER 

2EAE 

18 

EB 


JR 

2E9B 

NAECHSTE EINGABE ABWARTEN 





UNTERBEFEHLE ERKENNEN 

UND ANSPRINGEN 

2EBO 

E9 



PUSH 

HL 

BUFFERZ. RETTEN 

2EB1 

21 

99 

2E 

LD 

HL,2E99 
(SP),HL 

RUECKSPRUNGADRESSE NACH HL 

2EB4 

E3 



EX 

BUFFERZ. ZURUECK, RUECKSPRUNGADRESSE RETTEN 

2EB5 

13 



DEC 

D 

ZAHL = 0? 

2EB6 

14 



INC 

D 


2EB7 

C2 

BB 

2E 

JP 

NZ.2EBB 

NEIN 

2EBA 

14 



INC 

D 

JA, ZAHL = 1 

2EBB 

FE 

D8 


CP 

D8 

EINGEGEBENES ZEICHEN = LEFT ARROW? 

2EBD 

CA 

P2 

2F 

JP 

Z,2FD2 

JA, BACKSPACE 

2ECO 

FE 

DD 


CP 

DD 

= ENTER? 

2EC2 

CA 

EO 

2F 

JP 

Z,2FE0 

JA, EXIT 

2EC5 

FE 

FO 


CP 

FO 

= V 

2EC7 

28 

41 


JR 

Z,2F0A 

31 

JA, SPACE 

2EC9 

FE 

31 


CP 

KLEINBUCHSTABE? 

2ECB 

38 

02 


JR 

C,2ECF 

NEIN 

2ECD 

Dfc 

20 


SUB 

20 

IN GROSSBUCHSTABEN UMWANDELN 

2ECE 

FE 

21 


CP 

21 

- 'Q'? 

2ED1 

CA 

F6 

2F 

JP 

Z,2FF6 

JA, CHANCE! UND EXIT 

2ED4 


IC 


CP 

IC 

= V? 

2ED6 

CA 

40 

2F 

JP 

Z,2F40 

JA, LIST LINE 

2ED9 

FE 

23 


CP 

23 

= V? 

2EDB 

28 

3F 


JR 

Z,2F1C 

JA, SEARCH 

2EDD 

FE 

19 


CP 

19 

- l r? 

2EDF 

CA 

7D 

2F 

JP 

Z,2F7D 

JA, INSERT 

2EE2 

FE 

14 


CP 

14 

= V? 

2EE4 

CA 

4A 

2F 

JP 

Z,2F4A 

JA, DELETE 

2EE7 

FE 

13 


CP 

13 

= V? 

2EE9 

CA 

69 

2F 

JP 

Z,2F63 

JA, CHANGE 

2EEC 

FE 

19 


CP 

13 

= E'? 

2EEE 

CA 

E3 

2F 

JP 

Z.2FE3 

28 

JA. SAVE CHANGES AND EXIT 

2EP1 

FE 

28 


CP 

= *X'? 

2EF3 

CA 

78 

2F 

JP 

Z.2F78 

JA. EXTEND LINE 

2EF6 

FE 

1B 


CP 

1B 

= V? 

2EF8 

28 

IC 


JR 

Z,2F16 

JA, SEARCH AND KILL 

2EFA 

FE 

18 


CP 

18 

= 'H'? 

2EFC 

CA 

79 

2F 

JP 

Z.2F73 

11 

JA. HACK AND INSERT 

2EFF 

FE 

11 


CP 

= V? 

2F01 

CO 



RET 

NZ 

NEIN, NAECHSTE EINGABE ABWARTEN 





CHANCE! 

AND RESTART 


2F02 

CI 



POP 

BC 

RUECKSPRUNGADRESSE ENTFERNEN 

2F03 

Dl 



POP 

DE 

ZNR ZURUECK 

2F04 

CD 

FE 

20 

CALL 

20FE 

CR AUSGEBEN 

2F07 

C3 

63 

2E 

JP 

2E63 

NEUER ANFANG 





SPACE 

A,(HL) 


2FOA 

7E 



LD 

ZEICHEN LADEN 

2 FOB 

E7 



OR 

A 

= ZEILENENDE? 

2F0C 

C8 



RET 

Z 

JA, FERTIG 

2FOD 

04 



INC 

B 

CURSORPOS INC. 

2FOE 

CD 

2A 

03 

CALL 

032A 

ZEICHEN AUSGEBEN 

2F11 

23 



INC 

HL 

BUFFERZEIGER INC. 

2F1 2 

13 



DEC 

D 

ZAHL MAL WIEDERHOLT? 

2F13 

20 

F3 


JR 

NZ.2F0A 

NEIN, WEITER 

2F1 5 

C9 



RET 







SEARCH 

AND KILL 


2F16 

E3 



PUSH 

HL 

BUFFERZEIGER RETTEN 

2F1 7 

21 

r,p 

2F 

LD 

HL,2F9F 

RUECKSPRUNGADRESSE NACH HL (NACH KILL '!' DRUCKEN 

2F1 A 

E3 



EX 

(SP),HL 

BUFFERZEIGER ZURUECK, RUECKSPRUNGADRESSE RETTEN 

2F1B 

38 



SCF 

KILL-FLAG SETZEN 





SEARCH 



2F1C 

F5 



PUSH 

AF 

KILL-FLAG RETTEN 

2F1D 

CD 

84 

03 

CALL 

0384 

CHAPAKTER EINGEBEN 

2F20 

5F 



LD 

E, A 

CHAR NACH E 

2F21 

Fl 



POP 

AF 

KILL-FLAG ZURUECK 

2F22 

F5 



PUSH 

AF 

UND WIEDER RETTEN, GESETZT? 

2F23 

DC 

3F 

2F 

CALL 

C.2F5F 

JA, '!' AUSDRUCKEN 

2F26 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 

2F27 

B7 



OR 

A 

= ZEILENENDE? 

2F28 

CA 

3E 

2F 

JP 

Z,2F3E 

JA, FERTIG 

2F2E 

CD 

2A 

03 

CALL 

032A 

ZEICHEN DRUCKEN 

2F2E 

Fl 



POP 

AF 

KILL-FLAG ZURUECK 

2F2F 

F5 



PUSH 

AF 

UND WIEDER RETTEN, GESETZT? 

2F30 

DC 

AI 

2F 

CALL 

C,2FA1 

JA, ZEICHEN LOESCHEN 

2F33 

38 

02 


JR 

C,2F37 

UND BUFFERZEIGER UND CURSORPOS NICHT INC. 

2F33 

23 



INC 

HL 

BUFFERZEIGER INC. 

2?% 

04 



INC 

B 

CURSORPOS INC. 

2F37 

7E 



LD 

A,(HL) 

NAECHSTES ZEICHEN LADEN 

2F38 

BB 



CP 

E 

= GESUCHTES ZEICHEN? 

2F39 

20 

EB 


JR 

NZ,2F26 

NEIN, WEITER SUCHEN 

2F3B 

13 



DEC 

D 

ZAHL MAL WIEDERHOLT? 

2F3C 

20 

E8 


JR 

NZ,2F26 

NEIN, WEITER 

2F3E 

Fl 



POP 

AF 

KILL-FLAG ZURUECK 

2F3F 

C9 



RET 







LIST LINE 


2F40 

CD 

73 

2B 

CALL 

2P73 

BUFFERINHALT BIS ZEILENENDE DRUCKEN 

2F43 

CD 

FE 

20 

CALL 

20FE 

CR AUSGEBEN 

2F46 

CI 



POP 

BC 

RUECKSPRUNGADRESSE ENTFERNEN 

2F47 

C3 

7C 

2E 

JP 

2E7C 

ZNR NEU AUSDRUCKEN UND WEITER 


Seite 87 















ROM-Listing für COLOUR-GENIE Copyright (C) 1985: Norbert Heicke & Luidger Röckrath 


DELETE 


2F4A 

7E 


LD 

A,(HL) 

ZEICHEN LADEN 

2F4B 

B7 


OR 

A 

= ZEILENENDE? 

2P4C 

C8 


RET 

Z 

JA, FERTIG 

2F4D 

3E 

21 

LD 

A.21 

'!' AUSGEBEN 

2F4F 

CD 

2A 09 

CALL 

092A 


2F52 

7E 


LD 

a,(hl) 

ZEICHEN LADEN 

2F93 

B7 


OR 

A 

= ZEILENENDE? 

2F94 

28 09 

JR 

Z.2F9F 

JA, '!' DRUCKEN UND FERTIG 

2F56 

CD 

2A 09 

CALL 

092A 

ZEICHEN AUSGEBEN 

2F99 

CD 

AI 2F 

CALL 

2FA1 

ZEICHEN LOESCHEN 

2F5C 

19 


DEC 

D 

ZAHL MAL WIEDERHOLT? 

2F5D 

20 

F9 

JR 

NZ.2F92 

NEIN, WEITER 

2F5F 

3E 

21 

LD 

A,21 

'!' AUSGEBEN 

2F61 

CD 

2A 09 

CALL 

092A 


2F64 

C9 


RET 






CHANGE 



2F69 

7E 


LD 

A,(HL) 

ZEICHEN LADEN 

2F66 

B7 


OR 

A 

= ZEILENENDE? 

2F67 

C8 


RET 

Z 

JA, ZURUECK 

2F68 

CD 

CO 

-p* 

o 

CALL 

0984 

ZEICHEN EINGEBEN 

2F6B 

77 


LD 

(HL),A 

FUER ALTES IN BUFFER ABSPEICHERN 

2F6C 

CD 

2A 09 

CALL 

032A 

UND AUSGEBEN 

2F6F 

29 


INC 

HL 

BUFFERZEIGER INC. 

2F70 

04 


INC 

B 

CURSORPOSITION INC. 

2F71 

19 


DEC 

D 

ZAHL MAL WIEDERHOLT? 

2F72 

20 

Fl 

JR 

NZ,2F69 

NEIN, WEITER 

2F74 

C9 


RET 






HACK AND INSERT 


2F73 

96 

00 

LD 

(HL),00 

NAECHSTES ZEICHEN DURCH ZEILENENDE UEBERSCHREIBEN 

2F77 

48 


LD 

C,B 

LAENGE = CURSORPOS 




EXTEND LINE 


2F78 

16 

FF 

LD 

D,FF 

ZAHL = 299 

2F7A 

CD 

OA 2F 

CALL 

2F0A 

REST DER ZEILE AUSDRUCKEN 




INSERT 



2F7D 

CD 

00 

O 

V_>1 

CALL 

0984 

EIN ZEICHEN EINGEBEN 

2F80 

B7 


OR 

A 

KEINS EINGEBEN? 

2F81 

CA 

7D 2F 

JP 

Z.2F7D 

JA, NOCHMAL 

2F84 

FE 

08 

CP 

08 

= LEFT ARROW? 

2F86 

28 

0A 

JR 

Z,2F92 

JA, LETZTES ZEICHEN LOESCHEN 

2F88 

FE 

OD 

CP 

OD 

= ENTER? 

2F8A 

CA 

EO 2F 

JP 

Z.2FE0 

JA, EXIT 

2F8D 

FE 

1B 

CP 

1B 

- UP ARROW? 

2F8F 

C8 


RET 

Z 

JA, FERTIG 

2F90 

20 

IE 

JR 

NZ.2FB0 

NEIN, ZEICHEN EINFUEGEN 

2F92 

9E 08 

LD 

A,08 

BACKSPACE NACH A 

2F94 

09 


DEC 

B 

CURSORPOSITION > 0? 

2F99 

04 


INC 

B 


2F96 

28 

1F 

JR 

Z.2FB7 

NEIN, WEITER KEIN BACKSPACE MOEGLICH 

2F98 

CD 

2A 09 

CALL 

032A 

BACKSPACE AUSGEBEN 

2F9B 

2B 


DEC 

HL 

BUFFERZEIGER DEC. 

2F9C 

09 


DEC 

B 

CURSORPOS DEC. 

2F9D 

11 

7D 2F 

LD 

DE,2F7D 

RUECKSPRUNGADRESSE SETZEN 

2FA0 

D9 


PUSH 

DE 

(NAECHSTES ZEICHEN EINFUEGEN) 




UP FUER 

EDIT: EIN ZEICHEN ENTFERNEN 

2FA1 

E5 


PUSH 

HL 

BUFFERZEIGER RETTEN 

2FA2 

OD 


DEC 

C 

LAENGE - 1 

2FA3 

7E 


LD 

A, (HL) 

ZEICHEN LADEN 

2FA4 

B7 


OR 

A 

= ZEILENENDE? 

2FA5 

97 


SCF 


CARRY VOR RUECKKEHR SETZEN (FUER KILL) 

2FA6 

CA 

90 08 

JP 

Z ,0890 

JA, ZURUECK, VORHER BUFFERZEIGER ZURUECK 

2FA9 

29 


INC 

HL 

NAECHSTES ZEICHEN LADEN 

2FAÄ 

7E 


LD 

A, (HL) 


2FAB 

2B 


DEC 

HL 

BUFFERZEIGER DEC. 

2FAC 

77 


LD 

(hl),a 

UND ZEICHEN ABSPEICHERN 

2FAD 

29 


INC 

HL 

BUFFERZEIGER INC. 

2FAE 

18 F9 

JR 

2FA3 

WEITER 




ZEICHEN 

EINFUEGEN 


2FBO 

F9 


PUSH 

AF 

ZEICHEN RETTEN 

2FB1 

79 


LD 

A,C 

LAENGE <299? 

2FB2 

FE 

FF 

CP 

FF 


2FB4 

98 09 

JR 

C.2FB9 

JA 

2FB6 

Fl 


POP 

AF 

NEIN, ZEICHEN ZURUECK 

2FB7 

18 

C4 

JR 

2F7D 

NAECHSTES ZEICHEN 

2FB9 

90 


SUB 

B 

ANZAHL DER ZUVERSCHIEBENDEN ZEICHEN = LAENGE - CURSORPOS 

2FBA 

OC 


INC 

C 

LAENGE INC. 

2FBB 

04 


INC 

B 

CURSORPOS INC. 

2FBC 

C9 


PUSH 

BC 

BEIDE RETTEN 

2FBD 

EB 


EX 

DE, HL 

BUFFERZEIGER NACH DE 

2FBE 

6F 


LD 

L,Ä 

ANZAHL DER ZUVERSCHIEBENDEN ZEICHEN NACH HL 

2FBF 

26 

00 

LD 

H.00 


2FC1 

19 


ADD 

HL,DE 

; AUF BUFFERZEIGER ADDIEREN 

2FC2 

44 


LD 

B,H 

;ERGIBT ADRESSE DES LETZTEN ZEICHEN (QUELLADRESSE) 

2FC3 

4D 


LD 

C.L 


2FC4 

29 


INC 

HL 

+ 1 ERGIBT ZIELADRESSE FUER VERSCHIEBUNG 

2FC5 

CD 

98 19 

CALL 

1998 

VERSCHIEBUNG 

2FC8 

CI 


POP 

BC 

CURSORPOS UND LAENGE NACH BC ZURUECK 

2FC9 

Fl 


POP 

AE 

ZEICHEN ZURUECK 

2FCÄ 

77 


LD 

(hl) , a 

IM BtUTER ABSPEICHERN 

2FCB 

CD 

2A 09 

CALL 

032A 

ZEICHEN AUSGEBEN 

2FCE 

29 


INC 

HL 

BUFFERZEIGER INC. 

2FCF 

C3 

7D 2F 

JP 

2F7D 

NAECHSTES ZEICHEN 
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BACKSPACE 


2FD 2 

78 



LD 

A,B 

;CURSORPOS > 0? 

2FD3 

B7 



OR 

A 


2FD4 

C8 



RET 

Z 

;NEIN, KEIN BACKSPACE MOEGLICH, ZURUECK 

2FD 5 

09 



DEC 

B 

;CURSORPOS DEC. 

2FD 6 

2B 



DEC 

HL 

;BUFFERZEIGER DEC. 

2FD7 

3E 

08 


LD 

A,08 

;BACKSPACE AUSGEBEN 

2FD 9 

CD 

2A 

03 

CALL 

032A 


2FDC 

19 



DEC 

D 

;ZAHL MAL WIEDERHOLT? 

2FDD 

20 

F3 


JR 

NZ,2FD2 

;NEIN, WEITER 

2FDF 

C9 



RET 







EUTER 



o 

E 

C\J 

CD 

75 

2B 

■CALL 

2B75 

;REST DER ZEILE DRUCKEN 





SAVE CRANGES AND EXIT 

2FE3 

CD 

FE 

20 

CALL 

20FE 

;CR AUSGEBEN 

2FE6 

CI 



POP 

BC 

;RUECKSPRUNGADRESSE ENTFERNEN 

2FE7 

Dl 



POP 

DE 

;ZNR ZURUECK 

2FE8 

7A 



LD 

A.D 

• n FFFF? 

2FE9 

A3 



AND 

E 

;(DIREKTMODE) 

2FEA 

3C 



INC 

A 


2FEB 

2A 

A7 

40 

LD 

HL,(40A7) 

;I/O-BUFFERANFANG NACH HL 

2FEE 

2B 



DEC 

HL 

;ZEIGER EIN BYTE VOR BUFFER 

2FEF 

C8 



RET 

Z 

;JA, ZURUECK 

2FF0 

37 



SCF 


;FLAG SETZEN, DAMIT KEINE DIREKTAUSFUEHRUNG 

2FF1 

23 



INC 

HL 

; ZEIGER AUF BUFFERANFANG 

2FF2 

F9 



PUSH 

AF 

;FLAG RETTEN 

2FF3 

C3 

98 

1 A 

JP 

1A98 

;SPRUNG IN HAUPTSCHLEIFE, NEUE ZEILE ABSPEICHERN 





CHANCEL 

AND EXIT 


2FF6 

CI 



POP 

BC 

;RUECKSPRUNGADRESSE ENTFERNEN 

2FF7 

Dl 



POP 

DE 

;ZNR ZURUECK 

2FF8 

C3 

19 

1 A 

JP 

1 AI 9 

;ZUR HAUPTSCHLEIFE 





VERSION 

AB AUGUST 

83 

2 FEE 

4E 

43 

57 63 

6F 


;COPYRIGHT 





SPRUNG 


— 

3000 

C3 

15 

34 

JP 

3415 






WEITERE 

BEHANDLUNG VON TASTENDRUECKEN (ANSPRUNG, BEI KEINER FKEY TASTE GEDRUECKT) 

3003 

■pc 



PUSH 

HL 

;HL RETTEN 

3004 

21 

18 

40 

LD 

HL,4018 

;MERKADRESSE FUER CTRL UND MODSEL TASTE 

3007 

CB 

7E 


BIT 

7,(HL) 

; WURDE CTRL TASTE GEDRUECKT ? 

3009 

28 

12 


JR 

Z ,301D 

;NEIN —> 

300B 

CB 

BE 


RES 

7,(HL) 

; CTRL FLAG ZURUECKSETZEN 

300D 

FE 

31 


CP 

31 

; GEDRUEOKTE TASTE < '1' ? 

300F 

38 

OC 


JR 

C,301D 

; JA —■' 

3011 

FE 

39 


CP 

39 

; GEDRUECKTE TASTE =1-8 ? 

3013 

30 

08 


JR 

NC,301D 

;NEIN —> 

3015 

D6 

31 


SUB 

31 

; AUS GEDRUECKTER TASTE CONTROL ZIFFER ERZEUGEN 

3017 

CD 

21 

36 

CALL 

3621 

; NEUEN FARBCODE ABSPEICHERN 

301A 

PI 



POP 

HL 

;HL ZUI. UECK 

301B 

18 

E3 


JR 

3000 

;— > 

301D 

El 



POP 

HL 

;HL ZURUECK 

301E 

C3 

E3 

05 

JP 

05E3 

;—> TASTATURABFRAGE 

3021 

FF 



RST 

38 

5 





ANSPRUNG, WENN GRAFIKCHARACTER 

3022 

FE 

CO 


CP 

CO 

;=1 92 ? 

3024 

C3 

05 

31 

JP 

3105 

;—> 

3027 

D6 

CO 


SUB 

CO 

; WIRD NICHT ANGESPROCHEN 

3029 

CA 

08 

31 

JP 

Z, 3108 

11 

302C 

47 



LD 

B,A 

. 1t 

302D 

3E 

20 


LD 

A,20 

. It 

302F 

C9 



PUSH 

BC 

• tt 

3030 

CD 

84 

31 

CALL 

3184 

0 It 

3033 

CI 



POP 

BC 

• It 

3034 

10 

F7 


DJNZ 

302D 

• ft 

3036 

C3 

08 

31 

JP 

3108 






FORWARD 

CURSOR 


3039 

23 



INC 

HL 

;POINTER +1 

303A 

E9 



PUSH 

HL 

;RETTEN 

303B 

CD 

65 

31 

CALL 

3165 

;PRUEFEN , OB SCROLL NOETIG 

303E 

EB 



EX 

DE, HL 

;REGISTER VERTAUSCHEN 

303F 

El 



POP 

HL 

;POINTER ZURUECK 

3040 

DF 



RST 

18 

;ALTEN MIT NEUEM POINTER VERGLEICHEN 

3041 

CO 



RET 

NZ 

,-KEIN SCOLL — > 

3042 

11 

D8 

FF 

LD 

DE , FFD8 

;= -40 ZEICHEN 

3049 

19 



ADD 

HL, DE 

;ABZIEHEN (NEUER POINTER) 

3046 

C9 



RET 






UP 

CRTC2S 

(AF) 






BESETZT 

2 CRTC REGISTER 





I:A= REGISTER, H= 

n. / 

WERT, L= WERT 

3047 

C9 



PUSH 

BC 

;BC RETTEN 

3048 

E9 



PUSH 

HL 

;HL RETTEN 

3049 

06 

02 


LD 

B,02 

;2 REGISTER 

304B 

OE 

FA 


LD 

C ,FA 

;CRTC REGISTER ADRESSE 

304D 

ED 

79 


OUT 

(C),A 

;OUT CRTC REGISTER A, H 

304F 

oc 



INC 

C 

;OUT CRTC REGISTER A+1, L 

3050 

ED 

61 


OUT 

(C),H 

;ERST ANSPRECHEN DES CRTC REGISTERS 

3052 

3C 



INC 

A 

;DANN AUSGEBEN DES WERTES 

3093 

69 



LD 

H,L 

;NAECHSTER WERT NACH H 
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'3054 1U F5 DUTTZ 3Ö4B ;2 MAL 

3056 El POP HL ;HL ZURUECK 

3057 CI POP BC ;BC ZURUECK 

3058 C9 RET 


CURSOR AUS 
3059 E5 PUSH HL 

305A 21 07 20 LD HL,2007 

305D 18 04 JR 3063 


CURSORADRESSE RETTEN 

START-ENDWERT FUER CURSOR (S.REG. 10, 11 DES CRTC) 
—> 




CURSOR 

SETZEN 

305F E5 


PUSH 

HL 

3060 2A 19 

40 

LD 

HL.(4019) 
A,OA 

3063 3E OA 


LD 

3065 CD 47 

30 

CALL 

3047 

3068 7C 


LD 

A,H 

3069 El 


POP 

HL 

306A E5 


PUSH 

HL 

306B D5 


PUSH 

DE 

306C FE 20 


CP 

20 

306E C4 14 

36 

CALL 

NZ.3614 

3071 00 


NOP 

3072 3E OE 


LD 

A,OE 

3074 CD 47 

30 

CALL 

3047 

3077 Dl 


POP 

DE 

3078 El 


POP 

HL 

3079 C9 


RET 



CURSORADRESSE RETTEN 
START-ENDWERT FUER CURSOR 
REGISTER 10 DES CRTC 

AN CRTC REG. 10 H UND REG. 11 L AUSGEBEN 

CURSORSTART NACH A 

=CURSORPOSITION 

RETTEN 

DE RETTEN 

CURSOR NICHT DARGESTELLT ? 

CURSOR DARGESTELLT 

CURSOR REG. CRTC 
CURSORADRESSE EINSCHREIBEN 
DE ZURUECK 
=CURSORPOSITION 


307A E5 
307B D5 
307C F5 
307D C3 F8 35 

3080 19 

3081 E5 

3082 21 90 43 
3085 11 00 00 
3088 3A 23 40 
308B 5F 

308C 19 
308D 7E 
308E El 
308F 77 

3090 Fl 

3091 Dl 

3092 El 

3093 C9 


EINTRÄGEN DER FARBE AN DIE AUGENBLICKLICHE SCHREIBPOSITION 


PUSH 

HL 

PUSH 

DE 

PUSH 

AF 

JP 

35F8 

ADD 

HL,DE 

PUSH 

HL 

LD 

HL,4390 

LD 

DE,0000 

LD 

A,(4023) 

LD 

E,A 

ADD 

HL,DE 

LD 

A,(HL) 

POP 

HL 

LD 

(hl),a 

POP 

AF 


HL RETTEN 
DE RETTEN 
AF RETTEN 
NACHHOLROUTINE —> 

FARBSPEICHERPOSITION BESTIMMEN 
HL RETTEN 

ANFANGSADRESSE FARBTABELLE 
FARBZEIGER AUF 0 
NEUEN FARBZEIGER HOLEN 

DE ZEIGT AUF POSITION IN DER FARBTABELLE 
ADRESSE DES NEUEN FARBCODES BESTIMMEN 
FARBE LADEN 

FARBSPEICHERPOSITION ZURUECK 
FARBE IN FARBSPEICHER BRINGEN 
REGISTER ZURUECK 


POP DE 


POP HL 


RET 


TABELLENVERWENDUNG NICHT BEKANNT (UNBENUTZT) 
3094 03 01 02 04 06 08 09 OA 05 


ERMITTELT CURSORPOSITION IN DER ZEILE (UNBENUTZT) 


309D E5 



PUSH 

HL ; 

REGISTER RETTEN 

309E D5 



PUSH 

DE 


309F C5 



PUSH 

BC 


30Ä0 2A 

20 

40 

LD 

HL,(4020) 

CURSORADRESSE 

30A3 E5 



PUSH 

HL 

RETTEN 

30A4 CD 

65 

31 

CALL 

3165 

PRUEFEN, OB SCROLL NOETIG 

30A7 EB 



EX 

DE, HL 

NEUE CURSORADRESSE NACH DE 

30A8 El 



POP 

HL 

ALTE CURSORADRESSE ZURUECK 

30A9 B7 



OR 

A 

CARRY LOESCHEN 

30AÄ ED 

52 


SBC 

HL,DE 

DIFFERENZ BERECHNEN 

30AC 7D 



LD 

A,L 

UND NACH A 

30AD CI 



POP 

BC 

REGISTER ZURUECK 

30AE Dl 



POP 

DE 


30AF El 



POP 

HL 


30B0 C9 



RET 






CALL 

BEI FEHLER IN INPUT 

30B1 7B 



LD 

A,E 

CODE NACH A 




TAB AUSWERTEN 


30B2 5F 



LD 

E, A 

ARGUMENTAUSDRUCK NACH E 

30B3 3A 

9C 

40 

LD 

A,(409C) 

AUSGABEFLAG NACH A 

30B6 B7 



OR 

A 

TESTEN ! 

30B7 FA 

4A 

IE 

JP 

M.1E4A 

CASSETTE —> 

30BA 28 

05 


JR 

Z,30C1 n 

DISPLAY —> 

30BC 3A 9E 40 

LD 

A,(409E) 

LETZTE TABPOSITION 

30BF 18 03 


JR 

3°C4 x 

—> 

30C1 3A 

9D 

40 

LD 

A,(409D) 

ZEILENLAENGE AUF BILDSCHIRM 

30C4 BB 



CP 

E 

MIT ARGUMENTAUSDRUCK VERGLEICHEN 

30C5 30 

OB 


JR 

NC,30D2 

TAB IN GLEICHER ZEILE —> 

30C7 C5 



PUSH 

BC 

BC RETTEN 

30C8 43 



LD 

B,E 

ARGUMENTAUSDRUCK NACH B 

30C9 5F 



LD 

E, A 

ZEILENLAENGE NACH E 

30CÄ 78 



LD 

A,B 

ARGUMENT AU SDRU CK NACH A 

30CB CI 



POP 

BC 

BC ZURUECK 

30CC 93 



SUB 

E 

ARGUMENTAUSDRUCK - ZEILENLAENGE 

30CD 30 FD 


JR 

NC,30CC 

BIS POSITION IN ZEILE ERRECHNET 

30CF 83 



ADD 

E 


30D0 5F 



LD 

E, A 

POSITION IN ZEILE NACH E 

30D1 C9 



RET 



30D2 7B 



LD 

A,E 

ARGUMENTAUSDRUCK NACH A 

30D3 C9 



RET 






NACHHOLROUTINE VON PRINT AT 

30D4 21 

E7 

03 

LD 

HL,03E7 

ANZAHL DER MAXIMALEN BILDSCHIRMSTELLEN 

30D7 DF 



RST 

18 

MIT 'AT' WERT VERGLEICHEN 

30D8 El 



POP 

HL 

POINTER ZURUECK 
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jcm 

TUT 

4A 

IE 

-TP- 

U.TETA- 

ST WEHT ZU GHUÖS, F(J-FJKKUK 

3 odc 

C3 

7E 

20 

JP 

207E 

WEITER BEI PRINT 'AT' 





ROUTINE 

WIRD NICHT BENUTZT 

3 odf 

CD 

9D 

30 

CALL 

30QD 

.ERMITTELT POSITION IN SEILE 

30E2 

5F 



LD 

E,A 

;NACH E 

30E3 

C9 



RET 







BILDSCHIRMAUSGAEE 






ANSPRUNG NUR UEBER OUTCH 

30E4 

DD 

6 F 

03 

LD 

L,(IX+03) 

CURSORADRESSE LADEN 

30E7 

DD 

66 

04 

LD 

II, (IX+04) 

NACH HL 

30EA 

DA 

7D 

31 

JP 

C, 317D 

CY ? —> 

30ED 

DD 

7E 

05 

LD 

A,(IX+05) 

CURSOR ON ? 

30 F 0 

B7 



OR 

A 


30 P 1 

20 

05 


JR 

NZ.30F8 

JA — > 

30F3 

CD 

59 

30 

CALL 

3059 

CURSOR AUS 

30E6 

18 

03 


JR 

30FB 

—> 

30 P 8 

CD 

5F 

30 

CALL 

305F 

ALTES ZEICHEN AUF CURSORPOSITION (FARBE) 

30FB 

79 



LD 

A,C 

ZEICHEN NACH A 

30FC 

FE 

20 


CP 

20 

CONTROLCODE ? 

30FE 

38 

09 


JR 

C.3122 

JA —> 

3100 

FE 

80 


CP 

86 

GR+FIK- ODER SPACE COMPRESSION ? 

3102 

D2 

22 

30 

JP 

NC,3022 

JA —> 

3105 

CD 

84 

31 

CALL 

3164 

IN VIDEO RAM UND SCROLL, WENN NOETIG 

3108 

7E 



LD 

A,(HL) 

ZEICHEN AUF NEUER CURSORPOSITION 

3109 

57 



LD 

D,A 

NACH D 

310A 

DD 

7E 

05 

LD 

A,(IX+05) 

CURSOR ON ? 

31OD 

P7 



OR 

A 


31 OE 

28 

08 


JR 

Z,3118 

NEIN —> 

3110 

DD 

72 

05 

LD 

(IX+05),D 

JA, ZEICHEN ABSPEICHERN 

3113 

CD 

5F 

30 

CALL 

305F 

UND DURCH CURSOR ERSETZEN 

3116 

18 

03 


JR 

311B 

—> 

3118 

CD 

59 

30 

CALL 

3059 x 

CURSOR AUS 

311B 

DD 

75 

03 

LD 

(IX+03),L 

NEUE CURSORADRESSE ABSPEICHERN 

31 IE 

DD 

74 

04 

LD 

(IX+04 ),H 

(MSB) 

3121 

C9 



RET 







AUFRUF 

DER CONTROLCODES 

3122 

11 

08 

31 

LD 

DE,3108 

RUECKSPRUNGADRESSE 

3125 

D5 



PUSH 

DE 

SETZEN 

3126 

FE 

08 


CP 

08 

BACKSPACE ? 

3128 

CA 

DF 

31 

JP 

Z, 31 DF 

JA —> 

31 2B 

FE 

OA 


CP 

OA 

< LINE FEED ? 

31 2D 

D 8 



RET 

C 

JA, RET. 

31 2E 

FF 

OE 


CP 

CE 

< OE ? 

3130 

DA 

C9 

31 

JP 

C,31C9 

JA,CR (OA,OB,OC,OD) 

3133 

CA 

F 8 

31 

JP 

Z,31F8 

=- ÖE ? — > CURSOR ON 

3136 

FE 

OF 


CP 

OF 

CURSOR OFF ? 

3138 

CA 

FD 

31 

JP 

Z ,31 FD 

JA —> 

31 3B 

FE 

18 


CP 

18 

< BACK ? 

31 3D 

D 8 



RET 

C 

JA, RET. 

313S FE 

18 


CP 

18 

BACK ? 

3140 

CA 

E5 

31 

JP 

Z.31E5 

JA —> 

3143 

FE 

19 


CP 

16 

ADVANCE ? 

31 45 

CA 

39 

30 

JP 

Z.3039 

JA —> 

3U8 FE 

1 A 


CP 

1 A 

DOWN ? 

31 4 A 

CA 

00 

32 

JP 

Z,3200 

JA — > 

314D 

FE 

IE 


CP 

1 B 

UP ? 

3UF 

CA 

12 

32 

JP 

Z ,3212 

JA —> 

3132 

FE 

IC 


CF 

IC 

HOME ? 

3154 

CA 

D4 

31 

JP 

Z,31D4 

JA — > 

3157 

FE 

ID 


CP 

ID 

BEGIN OF LINE ? 

3159 

CA 

D9 

31 

JP 

Z.31D9 

JA — > 

315C 

FE 

IE 


CP 

IE 

ERASE TO END OF LINE ? 

31 5E 

28 

5F 


JR 

Z,31 BF 

JA — > 

3160 

FE 

1 F 


CP 

1 F 

CLEAR TO END' OF FRAME ? 

3162 

28 

45 


JR 

Z,31A9 

JA —> 

3164 

C9 



RET 







ZEIGKR 

AUF ENDE DER ZEILE NACH HL 

3165 

11 

00 

BC 

LD 

DE,BCOO 

DIFFERENZ VIDEO RAM ZU 0000 

3168 

06 

01 


LD 

B,Ö1 

ZEILENZAEHLER 

31 6 A 

19 



ADD 

HL,DE 

AUF CURSORADRESSE AUFADDIEREN 

316B 

11 

28 

00 

LD 

DE,0028 

40 ZEICHEN PRO ZEILE LADEN 

31 6 E B7 



OR 

A 

CARRY LOESCHEN 

316F ED 

52 


SBC 

HL, DE 

UND SO LANGE ABZIEHEN, 

3171 

38 

03 


JR 

C,3176 

BIS 0 ERREICHT 

3173 

04 



INC 

B 

ZEILENZAEHLER ERHGEHEN 

3174 

18 

F5 


JR 

316B 

—> 

3176 

21 

D 8 

43 

I,D 

IIL,43D8 

4400 -40D 

3179 

19 



ADD 

HL, DE 

POSITION 

317A 

10 

FD 


DJNZ 

3179 

IN VIDEO RAM BESTIMMEN 

317C 

C9 



RET 







ZEICHEN 

AUF CURSORPOSITION LADEN 

31 TD 

DD 

7E 

05 

LD 

A,(IX+05) 

CURSOR ON ? 

3180 

B7 



OP 

A 

(WENN JA, ZEICHEN AUF CURSORPOSITION IN 

3131 

CO 



RET 

NZ 

JA, RET. 

3' l 82 

7 E 



LD 

A,(KL) 

ZEICHEN AUS CURSORPOSITION LADEN 

3183 

C9 



RET 







ZEICHEN 

AUF BILDSCHIRM 

31 «4 

CD 

7A 

30 

CALL 

307A 

FARBE ABSPEICHERN 

3187 

77 



LD 

(HL),A 

ZEICHEN AUF CURSORPOSITION ABSPEICHERN 

3188 

23 



INC 

HL 

CURSOR 1 ZEICHEN WEITER 

3189 

11 

E8 

47 

LD 

DE,47EP 

LETZTE VIDEO RAM ADRESSE 

318C 

DF 



RST 

18 

CURSOR AUSSERHALB DES VIDEO RAM ? 

318D 

DP 



RET 

C 

NEIN, RET. 
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SCROLL 


318E 21 E8 

47 

LD 

HL.47E8 

LETZTE VIDEO RAM ADRESSE 

3191 11 D8 

FF 

LD 

DE,FFD8 

-ZEILENLAENGE NACH DE 

3194 19 


ADD 

HL,DE 

VON LETZTER VIDEO RAM ADRESSE SUBTRAHIEREN 

3195 E5 


PUSH 

HL 

UND RETTEN 

3196 CD 39 36 

CALL 

3639 

VIDEO RAM UND FARBSPEICHER ADRESSEN LADEN 

3199 ED AO 


LDI 


SCROLL 

319B D9 


EXX 


AUSTAUSCH 

319C ED AO 


LDI 


SCROLL COLOUR 

319E D9 


EXX 


AUSTAUSCH 

319P 78 


LD 

A,B 

ZAEHLER NACH A 

31 Ao Bl 


OR 

C 

= 0 ? 

31 AI 20 F6 


JR 

NZ.3199 

WEITERMACHEN 

31 A3 D9 


EXX 


REGISTER ZURUECK 

31 A4 El 


POP 

HL 

REGISTER ZURUECK 

31A5 Dl 


POP 

DE 


31A6 CI 


POP 

BC 


31A7 D9 


EXX 


IN ZWEITREG'"STERSATZ 

31A8 El 


POP 

HL 

POINTER ZURUECK 



CLEAR TO END OF FRAME 


31A9 11 E8 

47 

LD 

DE,47E8 

LETZTE VIDEO RAM ADRESSE 

31AC E5 


PUSH 

HL 

CURSOR RETTEN 

31 AD CD EO 

51 

CALL 

31 EO 

BACKSPACE UND DELETE 

31 BO 23 


INC 

HL 

CURSOR + 1 

31 Bl DF 


RST 

18 

VIDEO RAM ENDE ERREICHT ? 

31B2 20 F9 


JR 

NZ,31 AD 

NEIN —> 

31B4 ei 


POP 

HL 

CURSOR ZURUECK 

31B5 C9 


RET 





** RENUM-ANWEISUNG 


31B6 FD E5 


PUSH 

IY 

INDEXREGISTER Y RETTEN (DISK-BASIC !) 

31B8 18 68 


JR 

3222 

RENUM ANSPRINGEN 

31BA FD El 


POP 

IY 

INDEXREGISTER Y ZURUECK 

31BC C3 83 

2C 

JP 

2C83 

ENDE RENUM 



ERASE TO END OF LINE (iE) 

31 BF E5 


PUSH 

HL 

CURSOR RETTEN 

31 CO CD 65 

51 

CALL 

3165 

ZEIGER AUF ANFANG DER ZEILE NACH HL 

31 C3 EB 


EX 

DE, HL 

NACH DE 

31C4 19 


ADD 

HL, DE 

ANZAHL ZEICHEN PRO ZEILE AUFADDIEREN 

31 C5 EB 


EX 

DE, HL 

NACH DE 

31 C6 El 


POP 

HL 

CURSOR ZURUECK 

31C7 18 E3 


JR 

31 AC 

BIS ZUM ENDE LOESCHEN 



CR 

(OA,OB,OC,OD) 


31C9 CD 1B 36 

CALL 

361B 

CURSOR ZUM ANFANG DER ZEILE 

31 ec 19 


ADD 

HL,DE 

ANZAHL DER ZEICHEN PRO ZEILE AUFADDIEREN 

31 CD 11 E8 

47 

LD 

DE,47E8 

ENDE VIDEO RAM 

31 DO DF 


RST 

18 

ERREICHT ? 

31 Dl 28 BE 


JR 

Z,3191 

JA —> 

31D3 C9 


RET 





CURSOR 

HOME (IC) 


31D4 21 00 

44 

LD 

HL,4400 

CURSOR= VIDEO RAM ANFANGADRESSE 

31D7 18 03 


JR 

31 DC 

—> 



CURSOR 

ZUM ANFANG DER 

ZEILE 

31D9 CD 65 

31 

CALL 

3165 

HL= ANFANG DER ZEILE 

31DC C3 5F 30 

JP 

305F 

—> 



BACKSPACE (08) 


31 DF 2B 


DEC 

HL 

CURSOR 1 ZEICHEN ZURUECK 

31EO 3E 20 


LD 

A,20 

SPACE LADEN 

31E2 C3 EE 35 

JP 

35EE 

—> 



CURSOR 

BACK (18) 


31E5 E5 


PUSH 

HL 

CURSOR RETTEN 

31E6 CD 65 

31 

CALL 

3165 

HL= ANFANG DER ZEILE 

31E9 EB 


EX 

DE, HL 

NACH DE 

31EÄ El 


POP 

HL 

CURSOR ZURUECK 

31EB DF 


RST 

18 

ENDE ERREICHT ? 

31 EC 28 03 


JR 

Z, 31 Fl 

JA —> 

31EE 2B 


DEC 

kL 

CURSOR 1 ZURUECK 

31EF 18 EB 


JR 

31 DC 

—> 

31 Fl 2B 


DEC 

HL 

CURSOR 1 ZURUECK 

31F2 11 28 

00 

LD 

DE,0028 

40 ZEICHEN PRO ZEILE 

31F5 19 


ADD 

HL,DE 

AUF CURSOR AUFADDIEREN 

31F6 18 E4 


JR 

31 DC 

__> 



CURSOR 

ON (OE) 


31F8 7E 


LD 

Mm) 

ZEICHEN AUF CURSORPOSITION LADEN 

31F9 DD 77 

05 

LD 

(ix+05),A 

;UND ABSPEICHERN 

31 FC C9 


RET 





CURSOR 

I 

% 

0 


31 FD AF 


XOR 

A 

;A= 0 

31 FE 18 F9 


JR 

31F9 

;WEITER, 0 ABSPEICHERN 



CURSOR 

DOWN (1A) 


3200 CD 07 36 

CALL 

3607 

; ZEILENANFANG HL 

3203 19 


ADD 

HL,DE 

; ZEILENLAENGE ZUM CURSOR ADDIEREN 

3204 B7 


OR 

A 

; CARRY LOESCHEN 

3205 3F 


CCF 


; CARRY COMPLEMENTIEREN 

3206 11 E8 

47 

LD 

DE.47E8 

; LETZTE POSITION EUER 25 ZEILEN 

3209 DF 


RST 

18 

;MIT CURSOR VERGLEICHEN 

320Ä 38 04 


JR 

C ,3210 

; CURSOR KLEINER LETZTE POSITION —> 

320 c ii 40 

FC 

LD 

DE,FC40 

; SONST -960 
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3'SÖFiy 
3210 18 

CA 



TDD— 
JR 

-HL’, DE 

71DC 

AUFABDIEKEN " ' 

—> 





CURSOR UP (1B) 


3212 CD 

OP 7b 


CALL 

36CE 

CURSORPOSITION NACK HL 

3215 ly 




ADD 

HL, DE 

UND -40D ADDIEREN 

3216 1i 

00 

44 


LD 

DE,4400 

ANFANG TEXTPILDSCHIRM 

3219 DP 




RST 

18 

MIT CURSORPOSITION VERGLFICHEN 

321A 30 

04 



JR 

NC,3220 

CURSORPOSITION GROESSER =BILDSCHIRMANFANG —> 

321 C 11 

E8 

03 


LD 

DF.G3E8 

1000 ZEICHEN 

321F 19 




ADD 

HL, DE 

AUFADDIEREN 

3220 18 

BA 



JR 

31DC 

— > 





RENUM- 

ANWEISUNG 


3222 2B 




DEC 

HL 

POINTER DEC. 

3^23 D7 




RST 

10 

ZEICHEN LADEN 

3224 20 

06 



JR 

NS,322C 

ARGUMENTE HINTER RENUM —> 

3226 11 

OA 

00 


LD 

DE.OOOA 

ZEILENZAEHLER MIT 10 VORBESETZEN 

3229 D5 




PUSH 

DE 

UND RETTEN 

322Ä 18 

13 



JR 

323P 

— > 





ARGUMENTE HINTER RENUT 

i AUSWERTEN 

322C D2 

4A 

IE 


JP 

NC,1E4A 

KEINE ZIFFER, FC-ERROR 

322F CD 

5A 

IE 


CALL 

1S5A 

ANGEGEBENES ARGUMENT HOLEN (ANFANGSZEILENNUMMER) 

3272 CF 




RST 

08 

SYNTAX CHECK 

3233 2C 







3234 30 

F6 



JR 

NC,322C 

KEINE ZIFFER, FC-ERROR 

3236 D5 




PUSH 

DE 

ANFANGSZEILENNUMMER RETTEN 

3237 CD 

5A 

IE 


CALL 

1E5A 

SCHRITTWEITE HOLEN (2.ARGUMENT) 

323A 7A 




LD 

A,D 

ueperfrttffen, OB 

323B B3 




OR 

E 

SCHRITTWEITEN 

323C CA 

4A 

IE 


JP 

Z,1E4A 

JA, FC-ERROR 





RENUM 

1. DURCHLAUF 


323F ED 

53 

E4 

40 

LD 

(40E4),DE 

SCHRITTWEITE ALS AUTO-INC.ABSPEICHERN 

3243 Dl 




POP 

DE 

ANFANGSZEILENNUMMER ZURUECK 

3244 ED 

53 

E2 

40 

LD 

(40E2),DE 

ALS AUTO-ZEILENNUMMER ABSPEICHERN 

3248 FD 

2A 

F9 

40 

LD 

IY,(40E9) 

ENDE DES PROGRAMMMTEXTES 

324C 11 

00 

01 


LD 

DE,0100 

256 BYTE 

724F ED 

19 



ADD 

IY ,DE 

AUFADDIEREN 

3251 ED 

E5 



PUSH 

IY 

UND TABELLENANFANG RETTEN 

3253 2A 

A4 

40 


LD 

HL,(40A4) 

PROGRAMMTEXTANFANG 

3296 E5 




PUSH 

HL 

RETTEN 

3257 7E 




LD 

A,(HL) 

LOW-ZEILENPT. LADEN 

3258 23 




INC 

HL 

AUF HIGH-ZEILENPT. 

3259 B6 




OR 

(HL) 

AUCH=0 ? 

325A 28 

4A 



JR 

Z.32A6 

JA, —> ENDE 1. DURCHLAUF 

325C 23 




INC 

HL 

LINE NUMBER 

325D 23 




INC 

HL 

UEBERLESEN 

325E CD 

BA 

33 


CALL 

33BA 

SPEZIAL-TOKEN UEBERPRUEFEN (GOTO ETC.) 

3261 23 




INC 

HL 

POINTER INC. 

3262 28 F3 



JR 

Z.3257 

ENDE DER ZEILE —> 

3264 CD 

D8 

33 


CALL 

33D8 

SONST NUMMER HINTER GOTO ETC. IN BUFFER UEBERTRAGEN 

3267 2B 




DEC 

HL 

POINTER DEC. 

3268 28 

F4 



JR 

Z.325E 

NOCH NICHT FERTIG —> 

326A 23 




INC 

HL 

POINTER INC. 

326P E5 




PUSH 

HL 

UND RETTEN 

326C D5 




PUSH 

DE 

B T TFFERZEIGER RETTEN 

326D ED 

E5 



PUSH 

IY 

ZEIGER AUF ZWISCHENTABELLE RETTEN 

326F Dl 




POP 

DE 

UND NACH DE 

3270 2A 

Bl 

40 


LD 

HL,(40B1) 

LETZTER SPEICHERPLATZ EUER BASIC 

3273 ED 

52 



SBC 

HL,DE 

KLEINER ALS ZEIGER AUF TABELLE ? 

3275 DA 

7A 

19 


JP 

C, 197A 

JA, OM-ERROR 

3278 11 

04 

00 


LD 

DE,0004 

NOCH 4 BYTES 

327B ED 

52 



SBC 

HL, DE 

FREI ? 

327D DA 

7A 

19 


JP 

C.197A 

NEIN, OM-ERROR 

3280 ED 

70 

00 


LD 

(IY+OO),B 

ZEIGER INNERHAI,E DER ZEILE ABSPEICHERN 

3283 El 




POP 

HL 

ZEIGER AUF UMZUNUMMERIERENDE ZAHLEN 

3284 CD 

5A 

IE 


CALL 

1E5A 

ZAHL (Z.B. HINTER GOTO) NACH DE 

3287 ED 

77 

01 


LD 

(IY+01),E 

UND IN TABELLE 

328A ED 

72 

02 


LD 

{IY+02),D 

ABSPEICHERN 

328D FD 

36 

03 

00 

LD 

(IY+03),00 

ENDE KENNUNG 

3291 CD 

El 

33 


CALL 

73E1 

INDEX-REGISTER Y+4 

7294 El 




POP 

HL 

PROGRAMMTEXTANFANG ZURUECK 

7295 2B 




DEC 

HL 

POINTER DEC. 

7296 27 




INC 

HL 

POINTER INC. 

7297 7E 




LD 

A,(HL) 

ZEICHEN HOLEN 

3298 FE 

20 



CP 

20 

- ' ' ? 

329A 28 

FA 



JR 

z ,3296 

JA —> 

729C FE 

2C 



CP 

2C 


729E 28 03 



JP 

Z,32A3 

JA —. 

32AO 2B 




DEC 

HL 

POINTER DEC. 

32A1 18 

BB 



JR 

325E 

__> 

32A3 23 




INC 

HL 

POINTER INC. 

32A4 18 

BE 



JR 

3264 

— > 





RENUM 

2. DURCHLAUF 


g 

< 

C\i 

36 

00 

FE 

LD 

(IY+OO),PF 

TABELLENENDE, KENNUNG ABSPEICHERN 

32AA Fl 




POP 

HL 

PROG.-TEXT ANFANG 

72AB FD 

El 



POP 

IY 

TABELLENANFANG 

32AD ED 

5B E2 

40 

LD 

DE,(40E2) 

ANEANGSZEILEIWUMMER 

32P1 D5 




PUSH 

DE 

RETTEN 

32B2 FT 

E5 



PUSH 

IY 

TABELLENANFANG RETTEN 

32B4 E5 




PUSH 

HL 

PROG.-TEXT ANFANG RETTEN 

32B5 D5 




PUSH 

DE 

ANFANGSZEILENNUMMEP RETTEN 

32B6 CD 

C2 

09 


CALL 

09C2 

ZETLENPOINTER NACH DE, ZEILENZEIGER NACH BC 

32P9 7A 




LD 

A,D 

ZEILENPOINTER 

32BÄ B3 




OR 

E 

=C ? 

32BB 28 

41 



JR 

Z,72FE 

JA —> ENDE 2. DURCHLAUF 
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yZED~ 

w 



-EX- 

DE, HL 

HL = ZElLENNUFiMEH 

32BE 

Dl 



POP 

DE 

ANPANGSZEILENNUMMER ZURUECK 

32BF 

ED 

E5 


PUSH 

IY 

TABELLENANPANG RETTEN 

32C1 

ED 

7E 

00 

LD 

A,(IY+OO) 

ZEICHEN AUS TABELLE NEHMEN 

3204 

3C 



INC 

A 

= TABELLENENDE (PP) ? 

32C5 

28 

21 


JR 

Z.32E8 

JA, —> 

32C7 

FD 

7E 

03 

LD 

A, (IY+03) 

DRITTES ZEICHEN AUS TABELLE NEHMEN 

32CA 

B7 



OR 

A 

= 0 ? 

32CB 

20 

16 


JR 

NZ.32E3 

NEIN, —> 

32CD 

ED 

7E 

01 

LD 

A,(IY+01) 

LOW ZEILENNR LADEN 

32DO 

B9 



CP 

C 

= AUGENBLICKLICHE ZEILENNUMMER ? 

32D1 

20 

10 


JR 

NZ.32E3 

NEIN, —> 

32D3 

ED 

7E 

02 

LD 

A, (IY+02) 

HIGH ZEILENNR LADEN 

32D6 

B8 



CP 

B 

= AUGENBLICKLICHE ZEILENNUMMER ? 

32D7 

20 

OA 


JR 

NZ,32E3 
(IY+01).E 

NEIN, —> 

32D9 

ED 

73 

01 

LD 

ZEILENNUMMER IN TABELLE 

32DC 

ED 

72 

02 

LD 

(IY+02),D 

EINTRÄGEN 

32DF 

FD 

36 

03 

01 LD 

(IY+03),01 

KENNUNG EINTRÄGEN 

32E3 

OD 

Bl 

33 

CALL 

33B1 

INDEX-REGISTER Y+4 

32E6 

18 

D9 


JR 

32C1 

__> 





TABELLENENDE (PP) ERREICHT 

32E8 

ED 

El 


POP 

IY 

TABELLENZEIGER ZURUECK 

32EA 

E5 



PUSH 

HL 

PROG.-TEXTZEIGER RETTEN 

32EB 

2A 

E4 

40 

LD 

HL,(40E4) 

SCHRITTWEITE 

32EE 

19 



ADD 

HL,DE 

C, 197A 

+ AKTUELLE ZEILENNUMMER 

32EF 

DA 

7A 

19 

JP 

ZU GROSS —> OM-ERROR 

32E2 

EB 



EX 

DE, HL 

NEUE ZEILENNUMMER NACH DE 

32E3 

21 

F8 

EP 

LD 

HL,EEF8 

65528 

32P6 

ED 

52 


SBC 

HL,DE 

C, 1 97A 

WENIGER NEUER ZEILENNUMMER < 0 ? 

32F8 

DA 

7A 

19 

JP 

JA, OM-ERROR 

32FB 

El 


POP 

HL 

PROG.-TEXT ZEIGER ZURUECK 

32FC 

18 

B7 


JR 

32B5 

— > 





RENUM 3 

DURCHLAUF 


32EE 

Dl 



POP 

DE 

ANPANGSZEILENNUMMER NACH DE 

32EF 

El 



POP 

HL 

PROGRAMMTEXTANEANG 

3300 

FD 

El 


POP 

IY 

TABELLENANPANG 

3302 

Dl 



POP 

DE 


3303 

7E 



LD 

A, (HL) 

ZEICHEN LADEN 

3304 

23 



INC 

HL 

POINTER INC. 

3305 

B6 



OR 

(HL) 

ENDE DES PROGRAMMS ? 

3306 

CA 

BA 

31 

JP 

Z. 31 BA 

JA, —> ENDE RENUM 

POINTER INC. 

3309 

23 


INC 

HL 

330A 

73 



LD 

(HL),E 

LOW-ZEILENNR. LADEN 

330B 

23 



INC 

HL 

POINTER INC. 

330C 

72 



LD 

(hl),d 

HIGH-ZEILENNR. LADEN 

330D 

CD 

BA 

33 

CALL 

33BA 

SPEZIAL-TOKEN SUCHEN (GOTO ETC.) 

3310 

23 


INC 

HL 

POINTER INC. 

3311 

20 

09 


JR 

NZ.331C 

SPEZIAL-TOKEN —> 

3313 

E5 


PUSH 

HL 

POINTER RETTEN 

3314 

2A 

E4 

40 

LD 

HL,(40E4) 

SCHRITTWEITE 

3317 

19 



ADD 

HL,DE 

AUEADDIEREN 

3318 

EB 



EX 

DE, HL 

NACH DE 

3319 

El 



POP 

HL 

POINTER ZURUECK 

331A 

18 

E7 


JR 

3303 

BEARBEITEN —> 





SPEZIAL 

-TOKEN GEFUNDEN (GOTO ETC.) 

331 C 

E5 



PUSH 

HL 

REGISTER RETTEN 

331D 

D5 



PUSH 

DE 


331E 

CD 

D8 

33 

CALL 

33D8 

BUFFER UEBERPRUEFEN 

3321 

Dl 



POP 

DE 

REGISTER ZURUECK 

3322 

El 



POP 

HL 


3323 

2B 



DEC 

HL 

POINTER DEC. 

3324 

28 

E7 


JR 

Z,330D 

NICHTS AENDERN —> 

3326 

23 



INC 

HL 

POINTER INC. 

3327 

7E 



LD 

A,(HL) 

ZEICHEN LADEN 

3328 

EE 

20 


CP 

20 

- " ' ? 

332A 

28 

EA 


JR 

Z,3326 

JA,— > 

REGISTER RETTEN 

332C 

D5 



PUSH 

DE 

332D 

E5 



PUSH 

HL 


332E 

ED 

6E 

01 

LD 

L, (IY+01) 

ZEILENNUMMER AUS TABELLE 

3331 

ED 

66 

02 

LD 

H, (IY+02) 

ENTNEHMEN 

3334 

CD 

94 

33 

CALL 

3394 

UMWANDELN 

3337 

ED 

4E 

00 

LD 

C,(IY+OO) 

KENNUNG ENTNEHMEN 

333A 

CD 

Bl 

33 

CALL 

33B1 

INDEX-REGISTER Y+4 

333D 

EB 



EX 

DE, HL 

ZEILENNUMMER NACH DE 

333E 

El 



POP 

HL 

POINTER ZURUECK 

333F 

CD 

F8 

33 

CALL 

33ES 

EINTRÄGEN 

3342 

Dl 



POP 

DE 

ZEILENPOINTER ZURUECK 

3343 

2B 



DEC 

HL 

POINTER DEC. 

3344 

23 



INC 

HL 

POINTER INC. 

3343 

7E 



LD 

Aß(HL) 

ZEICHEN LADEN 

3346 

PE 

20 


CP 

= ' ' 

3348 

28 

EA 


JR 

Z,3344 

JA, —> 

334A 

PE 

2C 


CP 

2C 

= f ' 9 

3340 

28 

03 


JR 

3,3351 

JA, —> 

334JS 

2B 



DEC 

HL 

POINTER DEC. 

334E 

18 

BC 


JR 

330D 

— > 

3331 

23 



INC 

HL 

POINTER INC. 

3332 

18 

C8 


JR 

331C 

— > 





UP DELETB 

0 






DELETES 

B-BYTES AUS BASIC TEXT 





I:HL=ZEIGER AUF ERSTES ZU ENTFERNENDE BYTE B=ANZAHL 

3354 

D5 



/ 

PUSH 

DE 

REGISTER RETTEN 

5395 

05 



PUSH 

BC 


3336 

E5 



PUSH 

HL 
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735 ( 

“E3- 


-FUHR- 

“ETC- 

PUINTEK WEG 

3368 

Dl 


POP 

DE 

DE = HL 

3359 

B5 


FUSH 

DE 

Ul® 2 KAL 

335 A 

15 


PUSH 

DE 

RETTEN 

735B 

2A F9 

40 

LD 

HL,(40F9) 

PROGRAMMTEXTENDE 

335E 

E5 


PUSH 

HL 

RETTEN 

335F 

2B 


DEC 

HL 

PROGRAMMTEXTENDE - 1 

■*360 

13 


INC 

DE 

POINTER + 1 

3361 

10 FC 


DJNZ 

335F x 

BIS B = 0 

3363 

2 ? BQ 

40 

LD 

(40F9), HL 

NEUES PROGRAMMTEXTENDE ABSPEICHERN 

3366 

El 


POP 

HL 

ALTES PROGRAMMTEXTENDE ZURUECK 

3367 

CI 


POP 

BC 

POINTER NACH BC 

3368 

ED 42 


SBC 

HL,BC 

ERGIBT ANZAHL DER ZU UEBERTRAGENDEN BYTES 

336A 

23 


INC 

HL 

+ 1 

336B 

E5 


PUSH 

HL 

ANZAHL NACH 

376C 

CI 


POP 

BC 

BC 

336D 

El 


POP 

HL 

POINTER NACH HL 

336E 

EB 


EX 

DE, HL 

NACH DE (HCl,ADRESSE IN HL) 

336E 

ED BO 


LDIR 


UEBERTRAGEN 

3371 

El 


POP 

HL 

REGISTER ZURUECK 

3372 

CI 


POP 

BC 


3373 

Dl 


POP 

DE 


3374 

C9 


RET 






UP INSERB 

0 





INSERTS 

B-BYTES IN BASIC-TEXT 




I:HL=POINTER , B=ANZAHL BYTES 




0:B-BYTES FREIRAUM 


3375 

D5 


PUSH 

DE 

REGISTER RETTEN 

3376 

C5 


PUSH 

BC 


3377 

E5 


PUSH 

HL 


3378 

2A P9 

40 

LD 

HL,(40F9) 

FROGRAMMTEXTENDE 

337B 

E5 


PUSH 

HL 

NACH 

337C 

Di 


POP 

DE 

DE 

337D 

23 


INC 

HL 

PROGRAMMTEXTENDE + 1 

337E 

10 ED 


DJNZ 

337D 

B MAL 

3380 

22 F9 

40 

LD 

(40F9),HL 

NEUES PROGRAMMTEXTENDE ABSPEICHERN 

3383 

CI 


POP 

BC 

POINTER NACH BC 

3384 

C5 


PUSH 

BC 

UND WIEDER RETTEN 

3385 

E5 


PUSH 

HL 

NEUES PROGRAMMTEXTENDE RETTEN 

3386 

B7 


OR 

A 

CARRY LOESCHEN 

3387 

ED 42 


SBC 

HL,BC 

PROGRAMMTEXTENDE - POINTER 

3389 

E5 


PUSH 

HL 

RETTEN 

338A 

CI 


POP 

BC 

UND ALS ZAEHLER NACH BC 

3382 

03 


INC 

BC 

+ 1 

338C 

Ei 


POP 

HL 

NEUES PROGRAMMTEXTENDE ZURUECK 

338D 

EB 


EX 

DE, HI, 

NACH DE, HL=ALTES PROGRAMMTEXTENDE 

338E 

ED E8 


LDDR 


VON HINTEN NACH VORN UEBERTRAGEN 

3390 

El 


POP 

HL 

REGISTER ZURUECK 

^91 

CI 


POP 

BC 


3392 

Dl 


POP 

DE 


339^ 

C9 


RET 






UP INTSTR 

(AF,BC,HL) 





INTEGER 

ZAHL EL WIRD IN STRING UMGEWANDELT 




I:HL=IN 

n EGERZAHL 





0:B=ANZ 

AUL BYTES, HL=ZEIGER AUF ERSTES ASCII-ZEICHEN 

3394 

B5 


PUSH 

DE 

DE RETTEN 

3395 

22 21 

41 

LE 

(4121),HL 

HL IM X-REGISTER (INTEGER) ABSPEICHERN 

3393 

01 00 

00 

LD 

BC,0000 

ZAEHLER AUF NULL 

33 9B 

2A A7 

40 

LD 

HL,(40A7) 

BUFFERZEIGER NACH HL 

339E 

E5 


PUSH 

HL 

RETTEN 

33 9E 

CD 2E 

13 

CALL 

132F 

ZAHL IN STRING UMFORMEN 

33A2 

El 


POP 

HL 

BUFFERZEIGER ZURUECK 

33A3 

06 05 


LD 

±>,05 

ZAEHLER AUF 5 ZIFFERN MAXIMAL 

73A5 

7E 


LD 

A,(HL) 

ZIFFER LADEN 

33A6 

D6 30 


SUB 

30 

ASCII-CODIERUNG RUECKGAENGIG 

33A8 

20 Ö5 


JR 

NZ,33AF 

NICHT NULL, —> 

33AA 

23 


INC 

HL 

=0 UEBERLESEN, BIS ZU 

33AE 

10 P8 


DJNZ 

33A5 

MAXIMAL 5 ZIFFERN 

3 3 AD 

2B 


DEC 

HL 

3 0INTER DEC. 

33AE 

04 


INC 

B 

B=1 (EINE NULL) 

33AE 

Dl 


POP 

DF 

DE ZURUECK 

33BO 

C9 


RET 






INDEX-REGISTER Y + 4 


33B1 

FD 23 


INC 

IY 

NEUER WERT DES INDEX- 

33E3 

FD 27 


INC 

IY 

REGISTEP Y IST DER ALTE 

37B5 

FD 23 


INC 

IY 

WERT + 4 

73B7 

FD 23 


INC 

IY 

(IY = IY + 4) 

33B9 

C9 


RET 






SUCHT TOKEN MIT ZEILENNR. (GOTO ETC.) 




Z=1. WENN GEFUNDEN Z= 

=0, WENN NICHT 

33BA 

23 


INC 

HL 

POTNTER INC. 

33BB 

7E 


or 

A, (HL) 

ZEICHEN LADEN 

33BC 

B7 


OR 

A 

ZEILENENDE ? 

33BL 

CÖ 


RET 

7 

JA, —> RET 

33BE 

FE 8D 


CP 

SD 

TOKEN 'GOTO' ? 

3 3 CO 

28 OC 


JR 

Z ,33CE 

JA, —> 

33C2 

FE 91 


CP 

91 

TOKEN 'GOSUB' ? 

33C4 

28 08 


JP. 

Z,33CE 

JA, — > 

33C6 

FE CA 


CP 

CA 

TOKEN 'THEN' ? 

33C8 

28 04 


JP 

Z,33CE 

JA, —> 

33CA 

PE 95 


CP 

95 

TOKEN 'ELSE' ? 

33CC 

20 EC 


JP 

NZ.33BA 

NEIN, —> WEITER 

33CE 

2B 


DEC 

HL 

POINTER DEC. 

33CF 

7E 


Lr 

A, (HL) 

WAR TOKEN VOR DEM GEFUNDENEN GLEICH 

33D0 

PE FF 


CP 

FF 

FF (COLOUR TOKEN KENNUNG) ? 
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23 

INC- 

HE- 

"POINTER INC. 

33D3 

7E 

LD 

A,(HL) 

ZEICHEN WIEDER LADEN 

vm 

28 E4 

JR 

Z.33BA 

JA, COLOUR TOKEN WEITERMACHEN —> 

33D6 

A7 

AND 

A 

NEIN Z=0 SETZEN 

33D7 

C9 

RET 





KENNUNG 

AUF ZEILENNUMMER INNERHALB DER ZEILE EINTRÄGEN 

33D8 

ED 5B A7 40 

LD 

DE,(40A7) 

I/O-BUFFERADRESSE 

55DC 

D5 

PUSH 

DE 

RETTEN 

33DD 

06 00 

LD 

B,00 

ZAEHLER AUF NULL 

33DF 

7E 

LD 

A,(HL) 

ZEICHEN LADEN 

33EO 

PE 20 

CP 

20 

= " " ? 

33E2 

28 OB 

JR 

Z.33EF 

JA, —> NAECHSTES ZEICHEN 

33E4 

PE 30 

CP 

36 

KLEINER ASCII-ZIFFER ? 

33E6 

38 OA 

JR 

C,33F2 

JA, —> 

33E8 

PE 3A 

CP 

3A 

IST ZEICHEN ASCII-ZIFFER ? 

33EA 

30 06 

JR 

NC,33F2 

NEIN, —> 

33EC 

04 

INC 

B 

ZAEHLER ERHOEHEN 

33ED 

12 

LD 

(de),a 

ASCII-ZIFFER "N BUFFER UEBERTRAGEN 

33ee 

13 

INC 

DE 

BUFFERZEIGER ERHOEHEN 

33EP 

23 

INC 

HL 

POINTER ERHOEHEN 

33EO 

18 ED 

JR 

33DF 

—> 

33P2 

AP 

XOR 

A 

A LOESCHEN 

33P3 

12 

LD 

(de),a 

0 ABSPEICHERN 

33P4 

Dl 

POP 

DE 

BUFFERANFANGSZEIGER ZURUECK 

33E5 

04 

INC 

B 

B=1 

33P6 

05 

DEC 

B 

B=0 ZERO-FLAG GESETZT 

33E7 

C9 

RET 





DELETET 

ODER INSERTET 

BYTES 

33E8 

C5 

PUSH 

BC 

BC RETTEN 

33P9 

78 

LD 

A,B 

ZAEHLER NACH A 

33PA 

99 

SBC 

C 

GLEICH C ? 

33PB 

28 10 . 

JR 

Z,340D 

JA, —> 

33PD 

05 

DEC 

B 

B=1 ? 

33EE 

28 08 

JR 

Z, 3408 

JA, —> 

3400 

OD 

DEC 

C 

C=1 ? 

3401 

20 F6 

JR 

NZ.33P9 

NEIN, —> 

3403 

CD 75 33 

CALL 

3375 

INSERT'S B BYTES 

3406 

18 05 

JR 

340D 

—> 

3408 

41 

LD 

B,C 

C NACH B 

3409 

05 

DEC 

B 

B=B-1 

340A 

CD 54 33 

CALL 

3354 

DELETE'S B BYTES 

340D 

CI 

POP 

BC 

BC ZURUECK 

340E 

1A 

LD 

A,(DE) 

ZEICHEN AUS BUFFER ENTNEHMEN 

340P 

77 

LD 

(hl),a 

UND IN PROGRAMMTEXT ABSPEICHERN 

3410 

13 

INC 

DE 

BUFFERZEIGER ERHOEHEN 

3411 

23 

INC 

HL 

PROGTEXTZEIGER ERHOEHEN 

3412 

10 PA 

DJNZ 

340E 

WEITER BIS ZEILENNUMMER UEBERTRAGEN 

3414 

C9 

RET 





FKEY AUSGABE 


3415 

CD 49 00 

CALL 

0049 

A=ASCII CODE, NEU GEDRUECKTE TASTE 

3418 

PE 5C 

CP 

5C 

GROESSER 5C ? 

341A 

38 3C 

JR 

C.3458 

NEIN —> 

341C 

PE 60 

CP 

60 

GROESSER 60 ? 

341E 

30 38 

JR 

NC,3458 

JA —> 

3420 

D6 5B 

SUB 

5B 

A=1-4 

3422 

57 

LD 

D,A 

NACH D 

3423 

78 

LD 

A,B 

ANZAHL DER ZEICHEN IM BUFFER 

3424 

PE 07 

CP 

07 

NOCH 7 ZEICHEN FREI ? 

3426 

38 ED 

JR 

C ,341 5 

NEIN —> 

3428 

7A 

LD 

A,D 

FKEY ZEIGER ZURUECK NACH A 

3429 

C5 

PUSH 

BC 

BC RETTEN 

342A 

E5 

PUSH 

Hl 

HL RETTEN 

342B 

21 49 43 

LD 

HL,4349 

FKEY TEXTANFANG WENIGER 7 

342E 

11 07 00 

LD 

DE,0007 

JEDER FKEY BELEGT 7 ZEICHEN 

3431 

19 

ADD 

HL, DE 

DURCH ADDITION 

3432 

3D 

DEC 

A 

TEXTADRESSE DES ANGESPROCHENEN 

3433 

20 PC 

JR 

NZ,3431 

FKEY'S BESTIMMEN 

3435 

Dl 

POP 

DE 

POINTER ZURUECK 

3436 

06 07 

LD 

B,07 

7 ZEICHENZAEHLER LADEN 

3438 

7E 

LD 

A.1HL 

ZEICHEN LADEN 

3439 

PE 00 

CP 

06 

=0 ? 

343B 

28 12 

JR 

Z,344F 

JA —> 

343D 

12 

LD 

(DE),A 

ZEICHEN IN BUFFER ABSPEICHERN 

343E 

D5 

PUSH 

DE 

BUFFERZEIGER RETTEN 

343F 

CD 33 00 

CALL 

0033 

AUSGABE DES ZEICHENS AUF BILDSCHIRM 

3442 

Dl 

POP 

DE 

BUFFERZEIGER ZURUECK 

3443 

23 

INC 

HL 

TEXTZEIGER ERHOEHEN 

3444 

13 

INC 

DE 

BUFFERZEIGER ERHOEHEN 

3445 

10 PI 

DJNZ 

3438 

WEITER, BIS ALLE ZEICHEN UEBERTRAGEN 

3447 

EB 

EX 

DE, HL 

VERTAUSCHEN BUFFERZEIGER TEXTZEIGER 

3448 

CI 

POP 

BC 

ZAEHLER FUER PLATZ IM BUFFER ZURUECK 

3449 

78 

LD 

A,B 

NACH A 

344A 

D6 07 

SUB 

07 

7 ABZIEHEN, DA 7 ZEICHEN UEBERTRAGEN 

344C 

47 

LD 

B, A 

NACH B 

344D 

18 C6 

JR 

3415 

—> 



ZEILENENDE IN FKET TEXT 

344P 

EB 

EX 

DE, HL 

;HL=BUFFERZEIGER 

3450 

78 

LD 

A,B 

;7 WENIGER LAENGE DES FKEY TEXTES NACH 

3451 

CI 

POP 

BC 

; ZAEHLER FUER PLATZ IM BUFFER ZURUECK 

3452 

80 

ADD 

B 

;+A 

3453 

D6 07 

SUB 

07 

/ 

3455 

m 

LD 

B,A 

;ERGIBT RICHTIGEN WERT 

3456 

3E OD 

LD 

a;od 

;CR NACH A (ENTSPRICHT ZEILENENDE 


ANSPRUNG FÜER FKEY'S VOR 5-8 
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TE“ 

1TT 



“CF- 

-7C 

TJHÜESSER“70“7 

345A 

DA 

03 

30 


JP 

C.3003 

NEIN —> 

345D 

?E 

80 



CP 

80 

GROESSER 80 

345F 

D2 

03 

30 


JP 

NC,3003 

JA —> 

3462 

D6 

77 



SUB 

77 

A=5-8 (ENTSPRICHT FKEY) 

3464 

18 

BC 



JR 

3422 

—> 





** 

FKEY- 

ANWEISUNG 


3465 

2B 




DEC 

HL 

POINTER DEC. 

3467 

D7 




RST 

10 

ZEICHEN LADEN 

3468 

D? 

4A 

IE 


JP 

NC,1E4A 

KEINE ZAHL,FC-ERROR 

346B 

D6 

30 



SUB 

30 

AUS ASCII WIRD ZAHL 

346D 

F5 




PUSH 

AP 

UND RETTEN 

346E 

23 




INC 

HL 

POINTER INC. 

346? 

CP 




RST 

08 

SYNTAX CHECK AUF TOKEN 

3470 

D5 







3471 

CP 




RST 

08 

SYNTAX CHECK 

3472 

22 






11 

3473 

PI 




POP 

AF 

FKEY ZAHL ZURUECK 

3474 

FE 

01 



CP 

01 

KLEINER 1 ? 

3476 

DA 

4A 

IE 


JP 

C,1E4A 

JA, FC-ERROR 

3479 

FE 

09 



CP 

09 

GROESSE 8 ? 

347B 

30 

EB 



JR 

NC,3468 

JA, PC-ERROR 

347D 

E5 




PUSH 

HL 

POINTER RETTEN 

347E 

21 

49 

43 


LD 

HL,4349 

ANFANG FKEY TEXT WENIGER 7 

3481 

11 

07 

00 


LD 

DE,0007 

ZAEHLER FUER 7 ZEICHEN 

3484 

19 




ADD 

HL, DE 

AUF ADDIEREN 

3483 

3D 




DEC 

A 

A=A-1, BIS 

3486 

20 

^C 



JR 

NZ ,3484 

TEXTPOSITION ERREICHT 

3488 

EB 




EX 

DE, HL 

DE= TEXTPOSITION DES ANGESPROCHENEN FKEY'S 

3489 

El 




POP 

HL 

POINTER ZURUECK 

348A 

?B 




DEC 

HL 

POINTER DEC. 

348B 

06 

07 



LD 

B,C7 

ZAEHLER FUER MAXIMALE LAENGE DES FKEY'S 

348D 

D7 




RST 

10 

ZEICHEN HOLEN 

348E 

PE 

22 



CP 

22 

TEXTENDE ? 

3490 

28 

OC 



JR 

Z.349E 

JA —> 

3492 

PE 

00 



CP 

00 

ZEILENENDE ? 

3494 

28 

OA 



JR 

Z,34AO 

JA —> 

3496 

12 




LD 

(DE),A 

ZEICHEN IN FKEY TABELLE UEBERTRAGEN 

3497 

13 




INC 

DE 

FKEY TEXTZEIGER ERHOEHEN 

3498 

10 

F3 



DJNZ 

348D 

WEITER, BIS ALLE ODER 7 ZEICHEN UEBERTRAGEN 

349A 

23 




INC 

HL 

POINTER INC. 

349B 

CP 




RST 

08 

SYNTAX CHECK 

349C 

22 






11 

349D 

C9 




RET 








FKEY 

TEXT KLEINER 7 ZEICHEN 

349E 

3E 

20 



LD 

A,20 

=BLANK 






FKEY 

TEXT OHNE " (ZEILENENDE) 

34A0 

12 




LD 

(DE), A 

IN TEXTTABELLE UEBERTRAGEN 

34A1 

05 




DEC 

B 

LETZTES ZEICHEN ? 

34A2 

28 

03 



JR 

Z,34A7 

JA —> 

34A4 

13 




INC 

DE 

TEXTZEIGER ERHOEHEN 

34A5 

18 

F9 



JR 

34AO 

—> 

34A7 

B7 




OR 

A 

=ZEILENENDE ? 

34A8 

C8 




RET 

Z 

JA, RETURN 

34A9 

18 

PO 



JR 

349B 

SONST —> 






FKEY 

TEXT ZUM UEBERTRAGEN IN RAM BEREICH 

34AB 

4C 

49 

53 

5 ä. 

20 20 

20 

LIST 

34B2 

52 

55 

4E 

20 

20 20 

20 

RUN 

34B9 

41 

55 

54 

4P 

20 20 

20 

AUTO 

34C0 

45 

44 

49 

54 

20 20 

20 

EDIT 

34C7 

52 

45 

4E 

55 

4D 20 

20 

RENUM 

34CE 

53 

59 

53 

54 

45 4D 

00 

SYSTEM. 

34D5 

43 

4G 

4P 

41 

44 20 

20 

CLOAD 

34DD 

43 

53 

41 

56 

45 20 

22 

CSAVE " 





** &-ANWEISUNG 


34E3 

D7 




RST 

10 

ZEICHEN HOLEN 

34E4 

FE 

48 



CP 

48 

= 'H' ? 

34E6 

11 

00 

00 


LD 

DE,0000 

ADRESSE VORBESETZEN 

34E9 

20 

3D 



JR 

NZ,3528 

KEIN 'H' —> 

34EB 

23 




INC 

HL 

POINTER INC. 

34EC 

CD 

16 

35 


CALL 

3516 

HOLT HEXZIPPER ALS ZAHL 

34EF 

DA 

97 

19 


JF 

C.1997 

KEINE HEXZIPPER, SYNTAX-ERROR 

34E2 

CD 

PE 

34 


CALL 

34FE 

WEITERE HEXZIPPER HOLEN, DE BESETZEN 

34F5 

E5 




PUSH 

HL 

POINTER RETTEN 

34P6 

EB 




EX 

DE, HL 

HEXZAHL NACH HL 

34F7 

CD 

9A 

OA 


CALL 

0A9A 

UND INS X-REGISTER 

34PA 

El 




POP 

HL 

POINTER ZURUECK 

34PB 

2B 




DEC 

HL 

DEC. 

34PC 

D7 




RST 

10 

ZEICHEN LADEN 

34FD 

C9 




RET 








HEXZIFFERN HOLEN, UND 

DE BESETZEN 

34EE 

CD 

16 

35 


CALL 

3516 

HEXZIPPER ? 

3301 

D8 




RET 

C 

NEIN, RET. 

3302 

06 

04 



LD 

B.04 

ZAEHLER FUER 4 BIT 

3504 

CD 

09 

35 


CALL 

3509 

UND DE BERECHNEN 

5507 

18 

F3 



JR 

34FE 

—> 






DE BERECHNEN 


3509 

CB 

23 



SLA 

E 

DE=DE*2 

530B 

CB 

12 



RL 

D 

OVERFLOW ? 

350D 

DA 

BP 

07 


JP 

C,07E2 

JA, OV-ERROR 

3510 

10 

F7 



DJNZ 

3509 

4 MAL FUER HEX, 3 MAL FUER OKTAL 

3512 

B3 




OR 

E 

UND HEXZIFFEF IN 
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35TT 

~5F" 



“CD- 

“ETA- 


E EINBLENIJEN ...... - - 

3b 14 

23 



INC 

Hi 


POINTER INC. 

3515 

C9 



RET 








PRUEFT 

ZEICHEN, UND 

WANDELT UM 

3516 

CD 

3D 

IE 

CALL 

1E3D 


PRUEFT, OB BUCHSTABE 

3519 

38 

Ob 


JR 

C.3521 


NEIN —> 

351B 

Db 

37 


SUB 

3t 


BUCHSTABE IN ZIFFER 

351D 

FE 

10 


CP 

10 


GROESSER 16 ? 

3511' 

3F 



CCF 



COMPLEMENTIERE CARRY-FLAG 

5520 

C9 



RET 



GESETZT, WENN KEINE HEXZIFFER 

3521 

Db 

30 


SUB 

30 


ASCII ZIFFER IN ZAHL 

5525 

D8 



RET 

C 


KEINE ZIFFER —> 

3524 

FE 

OA 


CP 

OA 


GROESSER 10 ? 

3526 

3F 



CCF 



COMPLEMENTIERE CARRY-FLAG 

352V 

C9 



RET 



GESETZT, WENN KEINE ZIFFER 





&0-ANWEISUNG 



3528 

FE 

4P 


CP 

4P 


= '0' ? 

352A 

C2 

97 

19 

JP 

NZ,1997 


NEIN, SN-ERROR 

3521) 

23 



INC 

HL 


POINTER INC. 

35 2E 

CD 

41 

35 

CALL 

3541 


ZEICHEN=OKTALZIFFER ? 

3531 

DA 

97 

19 

JP 

C.1997 


NEIN, SN-ERROR 

3554 

CD 

41 

35 

CALL 

3541 


ZEICHEN=OKTALZIFFER ? 

3537 

DA 

F5 

34 

JP 

C.34F5 


NEIN, ENDE 

353A 

06 

03 


LD 

B,03 


SONST ZAEHLER FUER 3 BIT LADEN 

353C 

CD 

09 

35 

CALL 

3509 


UND IN DE EINBLENDEN 

353k 

18 

F3 


JR 

3534 


WEITER, BIS FERTIG 





PRUEFT 

UND HOLT OKTALZIFFER 

3541 

7E 



LD 

A,(HL) 


ZEICHEN LADEN 

5542 

D6 

30 


SUB 

30 


=ZIFFER ? 

3544 

D8 



RET 

C 


NEIN —> 

3545 

FE 

08 


CP 

08 


GROESSER 7 ? 

5547 

3F 



CCF 



CARRY GESETZT, WENN GROESSER 

3548 

09 



RET 







** 

VERIFY- 

ANWEISUNG 



3549 

2B 



DEC 

HL 


POINTER DEC. 

354A 

AF 



XOR 

A 


AKKU LOESCHEN 

354B 

IE 

D9 


LD 

E,D9 



354D 

C3 

29 

2C 

JP 

2C29 







UNTERROUTINE FUER CALL 

3550 

11 

00 

00 

LD 

DE,0000 


ADRESSE MIT 0 VORBESETZEN 

3553 

CD 

16 

35 

CALL 

3516 


HEXZIFFER AUSWERTEN 

555b 

DA 

97 

19 

JP 

C,1997 


KEINE HEXZIFFER, SN-ERROR 

3559 

C9 



RET 







** 

CALL-ANWEISUNG 



355A 

CD 

50 35 

CALL 

3550 


HEXZIFFER HOLEN 

355D 

CD 

FE 

34 

CALL 

34FE 


DE=HEXZAHL 

5560 

E5 



PUSH 

HL 


POINTER RETTEN 

3561 

EB 



EX 

DE, HL 


HEXZAHL NACH HL 

3562 

11 

67 35 

LD 

DE,3567 


RUECKKEHRADRESSE NACH DE 

3565 

D5 



PUSH 

DE 


UND AUF STACK LEGEN 

3566 

E9 



JP 

(HL) 


MASCHINENPROGRAMM ANSPRINGEN 





RUECKKEHR VON CALL- 

AUFRUF 

3567 

El 



POP 

HL 


POINTER ZURUECK 

3568 

C9 



RET 








FARBCODETABELLE FUER DIE FARBEN 0-15 

3569 

03 

05 

02 04 

06 08 01 

OE 09 10 07 

OB OC OD OA OF 





ANSPRUNG VON ERROR- 

ROUTINE ODER VERIFY-ERORR 

3579 

CD 

A7 

28 

CALL 

28A7 


TEXT 'BAD' BZW. ERROR AUSGEBEN 

357C 

11 

09 00 

LD 

DE,0009 


HUELLKURVENFORM 9 

357F 

D5 



PUSH 

DE 


RETTEN 

3580 

11 

00 

08 

LD 

DE,0800 


HUELLKURVE UND FREQUENZ 

3583 

D5 



PUSH 

DE 


RETTEN 

3584 

11 

3E 

10 

LD 

DE,103E 


KANAL A LAUTSTAERKE MIT HUELLKURVE 

3587 

D5 



PUSH 

DE 


RETTEN 

3588 

11 

78 

00 

LD 

DE,0078 


KANAL A TONFREQUENZ 

358B 

3E 

01 


LD 

A,01 


=78 GROBEINSTELLUNG 0 

358D 

CD 

2A 3E 

CALL 

3E2A 


AUSGEBEN 

3590 

Dl 



POP 

DE 


KANAL A LAUTSTAERKE 10 

3591 

3E 

08 


LD 

A,08 


AKTIVIERUNG 3E 

3593 

CD 

2A 3E 

CALL 

3E2A 


AUSGEBEN 

3596 

Dl 



POP 

DE 


HUELLKURVE GROBEINSTELLUNG 08 

3597 

3E 

OC 


LD 

A,OC 


FEINEINSTELLUNG 00 

3599 

CD 

2A 3E 

CALL 

3E2A 


AUSGEBEN 

359C 

Dl 



POP 

DE 


HUELLKURVENFORM 09 

359D 

3E 

OD 


LD 

A,OD 


AN PSG-REGISTER 13 

359F 

C3 

32 

3E 

JP 

3E32 


AUSGEBEN UND FERTIG 





NACHHOLROUTINE SHAPE-ANWEISUNG 

35A2 

2A 

Bl 

40 

LD 

HL,(40B1) 


LETZTER SPEICHERPLATZ, DER FUER BASIC ZUR VERFUEGUNG STEHT 

35A5 

23 



INC 

HL 


+ 1 . 

35A6 

C3 

F5 

3C 

JP 

3CF5 


ZURUECK ZU SHAPE 





NACHHOLROUTINE VON 

PRINT AT (CASSETTENAUSGABE) 

35A9 

CD 

B5 

35 

CALI 

35B5 


; HILFSROUTINE AUFRUFEN 

35AC 

C3 

3F 02 

JP 

023F 


;—> WRITES 





NACHHOLROUTINE VON 

CASSETTENINPUT 

35AP 

CD 

B5 

35 

CALL 

35B5 


; HILFSROUTINE AUFRUFEN 

35B2 

C3 

4C 02 

JP 

024C 


;—>INIT R 
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35B5 AF 

XOR 

A 

;A LOESCHEN 

35B6 CD 01 2B 

CALL 

2B01 

;AUSDRUCK AUSWERTEN 

35B9 CF 

RST 

08 

;SYNTAX CHECK 

35BA 2C 



, 

35BB 7B 

LD 

A,E 

;ERGEBNIS NACH A 

35BC A2 

AND 

D 

;VERKNUEPFT MIT D 

35BD C6 02 

ADD 

02 

;+2 

35BF D2 4A IE 

JP 

NC,1E4A 

;DARF NICHT GROESSER 


RET 


35C3 2B 
35C4 D7 
35C5 28 1A 
35C7 CD IC 2B 
35CA 06 08 
35CC FE 01 
35CE 28 OB 
35DO 04 
35D1 PE 02 
35D3 28 06 
35D5 04 
35D6 FE 03 
35D8 C2 4A IE 
35DB 78 
35DC IE 00 
35DE C3 32 3E 


ALTE EACA RESET-ANWEISUNG 

DEC Hl ;POINTER DEC. 

RST 10 ;ZEICHEN LADEN 

JR Z,35E1 ;ANWEISUNGSENDE —> 

CALL 2B1C ;AUSDRUCK < 256 AUSWERTEN 

LD B,08 ;AUF LAUTSTAERKE KANAL A (PSG) SETZEN 

CP 01 ;RESET1 ? 

JR Z,35DB ;JA —> 

INC B ;AUF KANAL B 

CP 02 ;RESET2 ? 

JR Z,35DB ;JA —> 

INC B ;AUF KANAL B 

CP 03 ;RESET3 ? 

JP NZ,1E4A ;NEIN, FC-ERROR 

LD A,B ;AUSGEWAEHLTER KANAL NACH A 

LD E,00 ;UND AN DAS ENTSPRECHENDE LAUTSTAERKEREGISTER 

JP 3E32 ;DES PSG 0 AUSGEBEN 


35E1 3E OA 
35E3 11 00 00 
35E6 CD 2A 3E 
35E9 3E 08 
35EB C3 32 3E 


RESET ALLE TONKANAELE 
LD A,OA 

LD DE,0000 

CALL 3E2A 

LD A,08 

JP 3E32 


PSG REGISTER 9+10 AUSWAEH1EN 
UND LAUTSTAERKE 0 
AUSGEBEN 

PSG REGISTER 8 AUSWAEHLEN 
UND 0 AUSGEBEN 


35EE 77 
35EF CD 7A 30 
35F2 23 
35F3 CD 7A 30 
35F6 2B 
35F7 C9 


NACHHOLROUTINE VON 31E2 


LD 
CALL 
INC 
CALL 
DEC 
RET 


(HL),A 

307A 

HL 

307A 

HL 


ZEICHEN ABSPEICHERN 

AKTUELLE FARBE IN FARBSPEICHER BRINGEN 
NACH FARBSPEICHER +1 

AKTUELLE FARBE BRINGEN (AUSSER BEI BLANK) 
POINTER RICHTEN 


35F8 11 00 AC 
35FB FE 20 
35FD C2 80 30 
3600 3A 90 43 

3603 19 

3604 C3 8F 30 


NACHHOLROUTINE ANSPRUNG VON 307D 


LD 

DE,ACOO 

;=F000-4400 

CP 

20 

;=' '? 

JP 

NZ.3080 

)NEIN —> 

LD 

A, (4390) 

;JA, FARBCODE LADEN 

ADD 

HL.DE 

;FARBSPEICHERSTELLE BERECHNEN 

JP 

308F 

;—> 


3607 11 28 00 
360A 3E 20 
360C C3 7A 30 


NACHHOLROUTINE ANSPRUNG VON 3200 
LD DE.0028 ;40 ZEICHEN PRO ZEILE 

LD A.20 ' 

JP 307A ;—> 


NACHHOLROUTINE ANSPRUNG VON 3212 
360F 11 D8 FF LD DE,FFD8 ;=—40 

3612 18 F6 JR 360A ;—> 


3614 20 02 
3616 3E 20 
3618 C3 7A 30 


NACHHOLROUTINE ANSPRUNG VON 306E 
JR NZ.3618 ;KEIN ' '—> 
LD A.20 ;=' ' 

JP 3Ö7A ;—> 


NACHHOLROUTINE ANSPRUNG VON 31C9 
361B CD OA 36 CALL 360A ;ZEICHEN DARSTELLEN 

36IE C3 65 31 JP 3165 ;—> 


3621 32 23 40 
3624 2A 20 40 
3627 C3 5F 30 


NACHHOLROUTINE ANSPRUNG VON 3017 


LD 

(4023),A n 

;FARBCODE LADEN 

LD 

HL,(4020) 

;CURSORADRESSE 

JP 

305F 

;—> 


POSITION DES CURSORS 


362A E5 

PUSH • 

HL 

362B EB 

EX 

DE,HL 

362C 11 28 00 

LD 

DE,0028 

362F 19 

ADD 

HL, DE 

3630 B7 

OR 

A 

3631 ED 52 

SBC 

HL,DE 

3633 30 FC 

JR 

NC,3631 

3635 19 

ADD 

HL, DE 

3636 7D 

LD 

A.L 

3637 El 

POP 

Ht 

3638 C9 

RET 



IN DER ZEILE ERMITTELN 

;HL RETTEN 

;POSITION NACH HL 

;40 ZEICHEN PRO ZEILE NACH DE 

;AUF BILDSCHIRMADRESSE AUFADDIEREN 

;CARRY LOESCHEN 

;UND SO LANGE SUBTRAHIEREN, 

;BIS POSITION IN DER 
;BILDSCHIRMZEILE UEBRIGBLEIBT 
;NACH A 

;POINTER ZURUECK 


3639 D9 
363A Fl 
363B C5 
563C D5 
363D E5 
363E 11 00 FO 
3641 21 28 FO 
3644 01 CO 03 

3647 C5 

3648 D9 


BESETZEN DER REGISTER MIT TEXT- UND FARBSPEICHER 


EXX 


;REGISTERSATZ WECHSELN 

POP 

AF 

;RUECKSPRUNGADRESSE IN AF 

PUSH 

BC 

;REGISTER RETTEN 

PUSH 

DE 


PUSH 

HL 


LD 

DE,FOOO 

;FARBSPEICHER 

LD 

HL,F028 

; " +40D 

LD 

BC,03C0 

;ZAEH1ER FUER 25 ZEILEN 

PUSH 

BC 

;ZAEHLER RETTEN 

EXX 


;REGISTERSATZ ZURUECK 
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3651 


3661 


11 

W 

TT 

-EU- 

UE,44UU - 

"ANFANG TEXTüPETUHER- 

21 

28 

44 

LD 

HL,4428 

+40D 

CI 



POP 

BC 

ZAEHLER ZURUFCK 

E5 



PUSH 

AF 

RUECKSPRUNGADRESSE ZURUECK 

C9 



RET 






ABFRAGE 

FUER JOY ZUSATZBEFEHLE 

7E 



LD 

A,(HL) 

TOKEN LADEN 

23 



INC 

HL 

POINTER ERHOEHEN 

EE 

DB 


CP 

DB 

JOYINP? 

CA 

C5 

36 

JP 

Z.36C5 

JA —> 

FE 

AO 


CP 

AO 

JOYOUT? 

CA 

B3 

36 

JP 

Z.36B3 

JA — > 

C3 

97 

19 

JP 

1997 

NEIN, SN-ERROR 




** COLOUR- 

FUNCTION 


3A 

23 

40 

LD 

A,(4023) 

FARBCODE LADEN 

30 



INC 

A 

+1 

CA 

OD 

37 

JP 

Z,370D 

—> 

B8 



CP 

B 

=B? 

77 



LD 

(HL),A 

ABSPEICHERN 


UP JOYINP (AF,BC,HL) 

EINGABE EINES BASICPROGRAMMES UEBER PORT 1 
I:(40A4)=PROGRAMMANFANG PORTI+2 AUE EINGABE 
0:EINGELESENES BASIC PROGRAMM RICHTIG IM SPEICHER 


366a 

2A 

A4 

40 

LD 

HL,(40A4) 

PROGRAMMTEXTANFANG 

366D 

2B 



DEC 

HL 

-1 

366E 

06 

03 


LD 

B,03 • 

ZAEHLER FUER 3 NULLEN 

3670 

E5 



PUSH 

HL 

POINTER RETTEN 

3671 

26 

OF 


LD 

H,OF 

INHALT VON REGISTER 15 

3673 

CD 

BB 

3A 

CALL 

3ABB 

PSG HOLEN 

3676 

CB 

57 


BIT 

2,A 

TESTEN OB BIT 2 GESETZT? 

3678 

28 

F9 


JR 

Z.3673 

NEIN. WIEDERHOLEN 

367A 

CD 

BB 

3A 

CALL 

3ABB 

INHALT VON REGISTER 15 

367D 

CB 

57 


BIT 

2,A 

PSG HOLEN (PORT 2) 

367F 

20 

F9 


JR 

NZ,367A 

WARTEN, BIS BIT 2=0 

3681 

26 

OE 


LD 

H,OE 

INHALT VON REGISTER 14 

3683 

CD 

BB 

3A 

CALL 

3ABB 

PSG HOLEN (PORT 1) 

3686 

El 



POP 

HL 

HL ZURUECK 

3687 

77 



LD 

(HL),A 

UND ZEICHEN ABSPEICHERN 

3688 

B7 



OR 

A 

ZEICHENS? 

3689 

23 



INC 

HL 

POINTER ERHOEHEN 

368A 

20 

E2 


JR 

NZ.366E 

NEIN —> 

368C 

10 

E2 


DJNZ 

3670 

BEI DREI NULLEN HINTEREINANDER 

368E 

C9 



RET 


FERTIG 


UP JOYOUT 

AUSGABE EINES BASICPROGRAMMS UEBER PORT 1 
I:BASICPROGRAMM IM SPEICHER; PORTI+2 AUE AUSGABE 
0 :/ 


368F 

2A 

A4 

40 


LD 

HL,(40A4) 

PROGRAMMTEXTANFANG 

3692 

2B 




DEC 

HL 

= 1 

3693 

ED 

5B 

F9 

40 

LD 

DE,(40F9) 

PROGRAMMTEXTENDE 

3697 

7E 




LD 

a,(hl) 

ZEICHEN LADEN 

3698 

E5 




PUSH 

HL 

POINTER RETTEN 

3699 

6F 




LD 

L,A 

ZEICHEN AUF 

369A 

26 

OE 



LD 

H,OE 

REGISTER 14 DES PSG 

369C 

CD 

B2 

3A 


CALL 

3AB2 

(PORT 1) AUSGEBEN 

369F 

24 




INC 

H 

AUF REGISTER 15 DES PSG (PORT 2) 

36A0 

3E 

04 



LD 

A.04 

BIT 2 

36A2 

CD 

B2 

3A 


CALL 

3AB2 

GESETZT AUSGEBEN 

36A5 

06 

OA 



LD 

B,OA 

KURZE 

36A7 

10 

FE 



DJNZ 

36A7 

ZEITSCHLEIFE 

36A9 

AF 




XOR 

A 

AUF PORT 2 NULL 

36AA 

CD 

B2 

3A 


CALL 

3AB2 

AUSGEBEN 

36AD 

El 




POP 

HL 

POINTER ZURUECK 

36AE 

23 




INC 

HL 

ERHOEHEN 

36AF 

DF 




RST 

18 

GROESSER, ALS PROGRAMMENDE? 

36B0 

20 

E5 



JR 

NZ,3697 

NEIN —> 

36B2 

C9 




RET 


SONST FERTIG 





** 

JOYOUT- 

-ANWEISUNG 


36B3 

E5 




PUSH 

HL 

POINTER RETTEN 

36B4 

26 

07 



LD 

H,07 

INHALT VON REG. 7 PSG 

36B6 

CD 

BB 

3A 


CALL 

3ABB 

HOLEN 

36B9 

E6 

3F 



AND 

3F 

PORT 1 AUF AUSGABE 

36BB 

F6 

CO 



OR 

CO 

PORT 2 AUF AUSGABE 

36BD 

CD 

B2 

3A 


CALL 

3AB2 

SETZEN 

36CO 

CD 

8F 

36 


CALL 

368F 

UP JOYOUT 

36C3 

El 




POP 

HL 

POINTER ZURUECK 

36C4 

C9 




RET 







** 

JOYINP- 

-ANWEISUNG 


36C5 

3E 

07 



LD 

A,07 

REGISTER 7 DES PSG 

36C7 

D3 

F8 



OUT 

F8 

ANSPRECHEN UND 

36C9 

3E 

3F 



LD 

A.3F 

PORT 1+2 AUF 

36 CB 

D3 

F9 



OUT 

F9 

EINGABE SETZEN 

36 CD 

CD 

6A 

36 


CALL 

366A 

UP JOYINP AUFRUFEN 

36DO 

C3 

77 

2C 


JP 

2C77 

BASICZEIGER ERNEUERN 





** 

SWAP-ANWEISUNG 


36D3 

CD 

OD 

26 


CALL 

260D 

VARIABLE IN TABELLE SUCHEN 

36D6 

D5 




PUSH 

DE 

VARTAB. ADRESSE RETTEN 

36D7 

3A 

AF 

40 


LD 

A, (40AF) 

TYPCODE1 NACH A 

36DA 

F5 




PUSH 

AF 

RETTEN 

36DB 

CF 




RST 

08 

SYNTAXCHECK AUF KOMMA 

36DC 

36DD 

2C 

CD 

OD 

26 


CALL 

260D 

; VARIABLE IN TABELLE SUCHEN 
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TFT 




TÜF- 

sc - 

TÜPC0DE1 NACETB 

36E1 

3A 

AF 

40 


LD 

A,(40AE) 

TYPC0DE2 NACH A 

36E4 

B8 




CP 

P 

GLEICHER TYPCODE? 

36E5 

C2 

4A 

IE 


JP 

NZ,1E4A 
(SP),HL 

NEIN, FC-ERROR 

36E8 

E3 



EX 

POINTER RETTEN UND HL=VARTAB.1 

36E9 

4E 




LD 

c,( hl) 

WERTE VERTAUSCHEN ANZAHL DER WERTE = TYPCODE 

36EA 

1A 




LI 

A,(DE) 

(HL), a 

ZEIGER LADEN 

36EB 

77 




LD 

UND VERTAUSCHEN 

36EC 

79 




LD 

A,C 

(DE), A 

DESSELBEN 

36ed 

12 




LD 

INTEG. 2 = LCB.MSBT 

3C-EE 

23 




ING 

FI 

STRING 3 = LAENGE,LSB,MSB 

36EF 

13 




INC 

DE 

SINGLE 4 = LSB,LSB,MSB,EXP 

36FO 

10 

F7 



DJNZ 

76E9 

DOUBLE 8 = 6*LSB,MSB,EXP 

36F2 

El 




POP 

HI 

POINTER ZURUECK 

36F3 

C9 




RET 








SOUND(N 

-FUNCTION 


76F4 

GF 




RST 

08 

SYNTAXCHECK ( 

36F5 

28 






( 

36F6 

CO 

IC 

2B 


CALL 

2B1C 

WERT KLEINER 256D HOLEN 

36F9 

F5 




PUSH 

AF 

UND RETTEN 

36FA 

CF 




RST 

08 

SYN m AXCKECK ) 

36FE 

29 






) 

~6FC 





POP 

AF 

WERT ZURUECK 

36FD 

FE 

10 



CP 

10 

GROESSER 16D 

3 6 FF 

D2 

4A 

IE 


JP 

NC,1E4A 

JA, FC-ERROR 

3702 

E5 




PUSH 

HL 

POINTER RETTEN 

3703 

67 




LD 

H,A 

WERT DES REGISTER H 

3704 

CD 

BF 

3A 


CALL 

3ABB 

DES PSG HOLEN 

3707 

03 

72 

3F 


JP 

3F72 

WERT UEBERGEBEN 





** SCALE-FUNCTION 


370A 

3A 

14 

43 


LD 

A,(4314) 

SCALE FAKTOR LADEN 

770D 

ES 




PUSH 

HL 

POINTER RETTEN 

370F 

C3 

72 

3F 


JP 

3F72 

WERT UEBERGEBEN 






DREI TABELLEN FUER FARBZUORDNUNGEN 

3711 

10 

OD 

OE 

04 

06 03 01 

02 05 07 08 09 OA OB OC OF 

7721 

10 

OD 

06 

04 

OF 03 09 

02 01 05 07 08 OA OB OC OE 

3731 

10 

05 

02 

04 

OE 09 oi 

OA 07 06 OD 03 08 OB OC OF 






UNGENUTZTER FREIRAUM 


3741 

FF 

FF 

FF 

FF 

"PP PP PP 

PP pp pp pp pp pp pp pp pp 

3751 

pp 

FF 

pp 

FF 

FF FF FF 

PP pp pp pp pp pp pp pP pp 

7761 

EF 

FF 

pp 

FF 

FF FF FF 

EE PF FF FE FF FF FF FF FF 

3771 

FF 

FF 

FF 

FF 

FF FF FF 

FF FF FF pp pp pp p? FF FF 

3781 

FF 

FF 

FF 

FF 

PP pp pp 

PP PP pp PP PP PP PP PP pp 

7791 

FF 

FF 

FF 

FF 

PP pp PP 

PP pp pp pp pp pp pp pp pp 

37A1 

FF 

FF 

FF 

FF 

FF FF FF 

PP pp pp pp pp pp pp pp pp 

37B1 

FF 

FF 

FF 

FF 

PP PP PP 

PP pp Pp PP pp pp Pp pp pp 

37C1 

FF 

FF 

FF 

FF 

PP pp pp 

FF FF 






UP STRMON 

(AF.DE,HL) 







STRINGAUSGABE AUE MONITOR 






I: KL . 

.STRING BEENDET MIT 03 ODER OD 






0:STRING AUF DISPLAY 


37CB 

D5 




PUSH 

DE 

;DE RETTEN 

3 7 CG 

11 

ID 

40 


LD 

DE,401D 

;DISPLAY-DCB 

37CF 

18 

04 



JR 

37D5 

;—> 





UP STRPRT 

(AF.DE,HL) 







STRINGAUSGABE AUF DRUCKER 






I:(HL). 

..STRING BEENDET MIT 03 ODER OD 






0: STRIN 

I AUF DRUCKER 


77D1 

05 




PUSH 

DF 

DF RETTEN 

77D2 

11 

25 

4C 


LD 

DE,4025 

PRINTER DCB 

37D3 

ES 




PUSK 

HL 

RETTEN 

^7D6 

7 y 




LD 

A, (HL) 

ZEICHEN LADEN 

77D7 

FE 

03 



CP 

03 

=ENDE? 

3709 

28 

09 



JR 

Z.37E4 

001B 

JA —> 

37DB 

CD 

1B 

00 


CALL 

AUSGABE 

37DE 

7E 




LD 

A, (HL) 

ZEICHEN LADEN 

37DF 

FE 

OD 



CP 

OD 

=RETURN? 

77E1 

23 




INC 

HL 

ZEIGER ERHOEHEN 

37E2 

20 

F2 



JR 

NZ,37D6 

NEIN —> 

37E4 

El 




POP 

HL 

HL ZURUECK 

V7E3 

Dl 




POP 

DE 

DE ZURUECK 

77E6 

C9 




RET 







UP HEXODE 

(AF.DE,HL) 







HEXADEZIMALE AUSGABE DES DE REGISTERS 

I:DE=ZAHL ; HL=TRANSFERSTELLE 






0:(HL;. 

..ASCII DARSTELLUNG DER HEXZIFFERN 

37E7 

7A 




LD 

A,R ; 

MCKÜ=D 

37E8 

CD 

EC 

37 


CALL 

37EC ;1 

JMWANDELN UND AUSGEBEN 

37EE 

7B 




LD 

A,E ; 

<UCKU=DE 





UP HEXCA 

(AF,HL) 







HEX/DEZ 

[MALE AUSGABE DES AKKU 






I:ANZAHL ; HL=TRANSFERADRESSE 






0:(HL). 

ASCII DARSTELLUNG DEP HEXZIFFERN 

37EC 

FS 




PUSH 

AP 

AKKU RETTEN 

37ED 

OF 




PRCÄ 


OBEREN 4 BITS NACH UNTEN BRINGEN 

37FE 

OF 




RRCA 



77EF 

OF 




RRCA 



37F0 

OF 




RRCA 



37F1 

CD 

F5 

37 


CALL 

37F5 

IN ASCII-DABSTELLUNG UMWANDELN 

37F4 

Fl 




POP 

AP 

AKKU ZURUECK 

37F3 

E6 

OF 



AND 

OF 

OBEREN 4 BITS AUSBLENDEN 
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ob yo 

-ahd— 

9U 

27 

DAA 


CE 40 

ADC 

40 

27 

DAA 


77 

LD 

(hl),a 

23 

INC 

HL 

C9 

RET 



Copyright (C) 1983: Norbert Heicke & Luidger Röckrath 

;UNi) dETTTEPATT' DES -- 

;AKKU IN DIE ASCII- 
;DARSTELLUNG 
;UMWANDELN 
;ASCII ABSPEICHERN 
;POINTER ERHOEHEN 


3800 

01 

00 


3802 

00 

04 


3804 

07 



3805 

C4 



3806 

07 



3807 

AO 



3808 

1F 


31D 

3809 

19 


25D 

380A 

00 



380B 

26 


38D 

380C 

96 


150D 

380D 

34 


52D 

380E 

28 


40D 

380F 

46 


70D 


PA1-WERTE TEXT-MODUS 
CURSORADRESSE 

BILDSCHIRMSPEICHER STARTADRESSE (+GRUNDADRESSE4000) 

CURSOR END RASTER 

CURSOR BLINKEN, CURSOR STARTEN 

ZEICHEN END RASTER 

INTERLACE AND SKEW 

VERTIKALE SYNCHRONISATIONSPOSITION 

ZEILENZAHL 

VERTIKALE JUSTIERUNG 

VERTIKALE GESAMTZAHL 

LAENGE DES ZEILENSYNCHRONPULSES 

HORIZONTALE SYNCHRONISATIONSPOSITION 

ZEICHEN PRO ZEILE 

HORIZONTALE ABTASTGESCHWINDIGKEIT 


INITIALISIERUNGSTAEEL FUER CRTC 


3810 

00 

00 


3812 

00 

08 


3814 

00 



3815 

20 



3816 

01 



3817 

20 



3818 

74 


116D 

3819 

66 


102D 

381A 

1F 



381B 

7E 


126D 

381C 

96 


150D 

381D 

34 


52D 

381E 

28 


40D 

381F 

46 


70D 

3820 

46 

4B 

69 


PAL-WERTE GRAFIK-MODUS 
CURSORADRESSE 

BILDSCHIRMSPEICHER STARTADRESSE (+GRUNDADRESSE4000) 

CURSOR END RASTER 

CURSOR BLINKEN, CURSOR STARTEN 

ZEICHEN END RASTER 

INTERLACE AND SKEW 

VERTIKALE SYNCHRONISATIONSPOSITION 

ZEILENZAHL 

VERTIKALE JUSTIERUNG 

VERTIKALE GESAMTZAHL 

LAENGE DES ZEILENSYNCHRONPULSES 

HORIZONTALE SYNCHRONISATIONSPOSITION 

ZEICHEN PRO ZEILE 

HORIZONTALE ABTASTGESCHWINDIGKEIT 

FKI 


3823 01 00 
3825 00 04 

3827 07 

3828 C4 

3829 07 
382A AO 

382B 1B 27D 

382C 19 25D 

382D 06 

382E 1F 31D 

382F 34 52D 

3830 2E 46D 

3831 28 40D 

3832 38 56D 


NTSC-WERTE TEXT-MODUS 
CURSORADRESSE 

BILDSCHIRMSPEICHER STARTADRESSE (+GRUNDADRESSE4000) 

CURSOR END RASTER 

CURSOR BLINKEN, CURSOR STARTEN 

ZEICHEN END RASTER 

INTERLACE AND SKEW 

VERTIKALE SYNCHRONISATIONSPOSITION 

ZEILENZAHL 

VERTIKALE JUSTIERUNG 

VERTIKALE GESAMTZAHL 

LAENGE DES ZEILENSYNCHRONPULSES 

HORIZONTALE SYNCHRONISATIONSPOSITION 

ZEICHEN PRO ZEILE 

HORIZONTALE ABTASTGESCHWINDIGKEIT 


3833 00 00 
3835 00 08 

3837 00 

3838 20 
3839 01 
383A 20 

383B 6E 11OD 

383C 66 102D 

383D 08 

383E 7F 127D 

383F 34 52D 

3840 2E 47D 

3841 28 40D 

3842 38 56D 

3843 4C 51 71 


NTSC-WERTE GRAFIK MODUS 
CURSORADRESSE 

BILDSCHIRMSPEICHER STARTADRESSE (+GRUNDADRESSE4000) 

CURSOR END RASTER 

CURSOR BLINKEN, CURSOR STARTEN 

ZEICHEN END RASTER 

INTERLACE AND SKEW 

VERTIKALE SYNCHRONISATIONSPOSITION 

ZEILENZAHL 

VERTIKALE JUSTIERUNG 

VERTIKALE GESAMTZAHL 

LAENGE DES ZEILENSYNCHRONPULSES 

HORIZONTALE SYNCHRONISATIONSPOSITION 

ZEICHEN PRO ZEILE 

HORIZONTALE ABTASTGESCHWINDIGKEIT 

LQQ 


3846 3E 00 
3848 18 08 


UP FCLS (AF,BC) 

LOESCHT DEN GRAFIKSCHIRM 

LD A,00 ;FARBE 0 

JR 3852 ;WEITER —> 


384A 

C4 

C2 

3F 

384D 

FE 

04 


Z84F 

D2 

4A 

IE 

3852 

4P 



3853 

06 

03 


3855 

07 



3856 

07 



3857 

Bl 



3858 

10 

FB 


385A 

4P 



385B 

E5 



385 C 

2A 

A4 

40 

385F 

11 

01 

48 

3862 

DF 



3863 

28 

09 



FCLSN 

BESCHREIBT GRAFIKSCHIRM MIT FARBE N (AKKU) 

CALL 

NZ,3FC2 

;FARBE HOLEN 

CP 

04 

;GROESSER 4? 

JP 

NC, 1E4A 

;JA, FC-ERROR 

LD 

C,A 

;FARBE NACH C 

LD 

B,03 

;MASKENZAEHLER 

RICA 

RlCA 

CR 

C 

;MASKE ERZEUGEN 

DJNZ 

LD 

3855 

C,A 

;FARBMASKE NACH C 

PUSH 

HL 

;POINTER RETTEN 

LD 

HL,(40A4) 

;PROGRAMMTEXTANFANG NACH 

LD 

DE,4801 

;UND UEBERPRUEFEN, OB 

RST 

18 

;LOESCHEN ERLAUBT 

JR 

Z,386E 

;WENN NICHT, IGNORIEREN 
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3865 21 

W 

TB“ 

-LD- 

HL,4800- 

(hl),c 

-; SUNST, GRAFIK- 

3868 71 



LD 

;SCHIRM MIT 

"869 01 

FF 

OF 

LD 

BC,OFFF 

;MASKE 

386C ED 

BO 


LDIR 


;VOLLSCHREIBEN 

386F El 



POP 

HL 

;POINTER ZURUECK 

386F C9 



RET 






UP CRTCIN 

(AF.EC) 



INITIALISIEREN DER CRTC TABLE 
I:CRTC-TAFEL AB 42PO BZW 4300 
0 :/ 

7870 3A IC 43 LD A,(431C) ;BELEGUNG DES PORT EP LADEN 
ANSPRUNG FUER NEUE PORT FE BELEGUNG IM AKKU 


3873 E5 



PUSH 

HL 

HL RETTEN 

3874 21 

FO 

42 

LD 

HL,42F0 

=LGR TAFEL 

3877 CB 

6F 


BIT 

5 ,A 

LGR-MODUS? 

3879 28 

03 


JR 

Z,387E 

JA —> 

387B 21 

00 

43 

LD 

HL,4300 

SONST FGR TAFEL 

387E D3 

FF 


OUT 

FF 

PORT FF ERNEUERN 

3880 32 

IC 

43 

LD 

(431C),A 

UND RETTEN 

3883 06 

10 


LD 

B, 10 

ZAEHLER LADEN 

3885 OE 

FA 


LD 

C ,FA 

UND UEBER PORT FA 

3887 05 



DEC 

B 

UND FB 

3888 ED 

41 


OUT 

(C),B 

AUSGEBEN 

388A 04 



INC 

B 

D.H., DASS DIE REGISTER 

388B OC 



INC 

C 

DES CRTC MIT DEN WERTEN 

388C ED 

A3 


OUTI 


AB HL BESCHRIEBEN 

388E 20 

F5 


JR 

NZ,3885 

WERDEN 

3890 El 



POP 

HL 

POINTER ZURUECK 

3891 C9 



RET 






ANSPRUNG AUS HAUPTSCHLEIFE, INITIALISIEREN CRTC 

3892 D9 



EXX 


REGISTER RETTEN 

3893 3Ä 

IC 

43 

I,D 

A,(431C) 

PORT FF BELEGUNG LADEN 

3896 E6 

DB 


AND 

DB 

NBGRD UND LGR SETZEN 

3898 CD 

73 

38 

CALL 

3873 

CRTC INITIALISIEREN 

389B D9 



EXX 


REGISTER ZURUECK 

389C CD 

A7 

28 

CALL 

28A7 

READY AUSGEBEN 

389F C9 



RET 


ZURUECK ZUR HAUPTSCHLEIFE 




ANSPRUNG AUS CONT-ANWEISUNG 

38A0 D9 



EXX 


REGISTER RETTEN 

38A1 CD 

70 

38 

CALL 

3870 

;CRTC INITIALISIEREN 

38A4 D9 



EXX 


REGISTER ZURUECK 

38A5 22 

A2 

40 

LD 

(40A2),HL 

NACHHOLEN VON ABSPEICHERN DER AKTUELLEN ZEILENNUMMERN 

38A8 C9 



RET 


ZURUECK ZUM CONT 




** FGR FUNKTION 


38A9 3A 

IC 

43 

LD 

A,(431C) 

PORT FF LADEN 

38AC CE 

EF 


SET 

5 ,A 

FGR MODE EINSCHALTEN 

38AE 18 

C3 


JR 

3873 

WEITER WIE INIT CRTC 




** LGR FUNKTION 


38B0 3A 

IC 

43 

LD 

A,(431C) 

PORT FF LADEN 

38B3 CB 

AF 


RES 

5 ,A 

LGR MODE EINSCHALTEN 

38E5 18 

EC 


JR 

3673 

WEITER WIE INIT CTRC 




** BGRD 

FUNKTION 


38B7 06 

04 


LD 

E ,04 

BIT 2 SETZEN 

38B9 18 

02 


JR 

38BD 

WEITER —> 




** NBGRD 

FUNKTION 


78BB 06 

00 


LD 

B,00 

BIT 2 LOESCHEN 

38BD 3A 

IC 

43 

LD 

A,(431C) 

PORT FF LADEN 

38C0 E6 

FB 


AND 

FB 

BIT 2 HERAUSBLENDEN 

38C2 BO 



OR 

B 

MIT MASKE OR VERKNUEPFEN 

38C3 32 

IC 

43 

LD 

(431C),A 

PORT FF RETTEN 

38C6 D3 

FF 


OUT 

FF 

UND AUSGEBEN 

38C8 C9 



RET 






** COLOUR FUNKTION 


38C9 CD 

C2 

3F 

CALL 

3FC2 

AUSDRUCK-1 IN AKKU HOLEN 

38CC FE 

10 


CP 

10 

GROESSER 16? 

38CE D2 

4A 

IE 

JP 

NC,1E4A 

JA, FC-ERROR 

38D1 32 

23 

40 

HD 

(4023), A 

FARBE ABSPEICHERN 

38D4 C9 



RET 






** FCOLOUR FUNKTION 


38D5 CF 



RST 

08 

SYNTAX CHECK: AUF R 

38D6 52 





R 

38D7 CD 

C2 

3F 

CALL 

3FC2 

AUSDRUCK-1 IN AKKU HOLEN 

38DA FE 

04 


CP 

04 

GROESSER 4? 

38DC 30 

FO 


JR 

NC.38CE 

JA, FC-ERROR 

38DE 32 

13 

43 

LD 

(4313),A 

FGR FARBE ABSPEICHERN 

38E1 C9 



RET 






ANSPRUNG AUS KEYWORDS 

ERKENNEN 

38E2 E6 

7F 


AND 

7F 

MARKIERUNG LOESCHEN, KEYWORDTABELLENENDE ERREICHT 

38E4 CO 



RET 

NZ 

NEIN —> RET. 

38E5 EB 



EX 

DE, HL 

HL ZEIGT AUF BEFEHL 

38E6 11 

2F 

39 

LD 

DE,392F 

=ERWEITERTE KEYWORDS 

38E9 C5 



PUSH 

BC 

BC RETTEN 

38EA 06 

7F 


LD 

B,7F v 

T0KEN=7F 

38EC 7E 



LD 

A, HL 

ZEICHEN LADEN 

38ED FE 

61 


CP 

61 

KLEINBUCHSTABE? 

78EF 38 

06 


JR 

C,38F7 

NEIN —> 

38F1 FE 

7B 


CP 

7B 


38F3 30 

02 


JR 

NC,38F7 

NEIN —> 

38F5 E6 

5F 


AND 

5F 

IN GROSSBUCFSTABEN UMWANDELN 
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38F7 4E 



LD 

C, (HL) 

EKSTES ZEICHEN" LADEN- 

38F8 EB 



EX 

DE,HL 

KEYWORDZEIGER NACH HL 

38F9 23 



INC 

HL 

NAECHSTES KEYWORD SUCHEN 

38FA B6 



OR 

(HL) 

ERSTER BUCHSTABE EINES KEYWORDS? 

38FB F2 

F9 

38 

JP 

P.38F9 

NEIN —> WEITER 

38FE 04 



INC 

B 

TOKEN+1 

38FF 7E 



LD 

A,(HL) 

ERSTEN BUCHSTABEN DES KEYWORDS LADEN 

3900 E6 

7F 


AND 

7F 

MARKIERUNG LOESCHEN, KEYWORDTABELLENENDE 

3902 28 

29 


JR 

Z,392D 

JA —> 

3904 B9 



CP 

C 

=ZEICHEN AUS BUFFER? 

3905 20 

F2 


JR 

NZ.38F9 

NEIN, NAECHSTES KEYWORD 

3907 EB 



EX 

DE,Hl 

ZEIGER VERTAUSCHEN 

3908 E5 



PUSH 

HL 

BUFFERZEIGER RETTEN 

3909 13 



INC 

DE 

KEYWORDZEIGER INC. 

390A 1A 



LD 

A,(DE) 

BUCHSTABEN DES KEYWORD LADEN 

390B B7 



OR 

A 

=ANFANG DES NAECHSTEN KEYWORDS? 

390C FA 

IE 

39 

JP 

M.391E 

JA, KEYWORD ERKANNT, TOKEN ABSPEICHERN 

390F 4F 



LD 

C,A 

NACH C 

3910 23 



INC 

HL 

BUFFERZEIGE 0 AUF NAECHSTES ZEICHEN 

3911 7E 



LD 

A,(HL) 

LADEN 

3912 FE 

61 


CP 

61 

KLEINBUCHSTABE? 

39U 38 02 


JR 

C,3918 

NEIN —> 

3916 E6 

5F 


AND 

5F 

IN GROSSBUCHSTABEN UMWANDELN 

3918 B9 



CP 

C 

=BUCHSTABE AUS KEYWORD? 

3919 28 

EE 


JR 

Z,3909 

JA —> 

391B El 



POP 

HL 

NEIN, BUFFERZEIGER ZURUECK 

391C 18 

D9 


JR 

38F7 

WEITER 

391E Fl 



POP 

AF 

BUFFERZEIGER 

391F Fl 



POP 

AF 

ALTES BC 

3920 Fl 



POP 

AF 

RUECKSPRUNGADRESSE 

3921 Dl 



POP 

DE 

RUECKSPRUNGADRESSE (1C3D) 

3922 Dl 



POP 

DE 

ZWISCHENCODEZEIGER 

3923 E3 



EX 

(SP),HL 


3924 36 

FF 


LD 

(HL),FF 

COLOUR KENNUNG ABSPEICHERN 

3926 78 



LD 

A,B 

TOKEN NACH A 

3927 42 



LD 

B,D 

KEYWORDZEIGER NACH BC 

3928 4B 



LD 

C,E 


3929 Dl 



POP 

DE 

ALTES HL NACH DE 

392Ä C3 

57 

3D 

JP 

3D57 

—> 




KEYWORDTABELLENENDE ERREICHT 

392D CI 



POP 

BC 

;BC ZURUECK 

392E Fl 



POP 

AF 

STACK ADJUST 

392F C9 



RET 




TABELLE DER COLOUR-BASIC-KEYWORDS (DOPPELTOKEN ERSTES =FF) 







DER ERSTE BUCHSTABE 

IS3 

’ JEWEILS 

DURCH DAS GESETZTE BI 


80 






81 






82 





3930 

C3 

4F 4C 

4F 

55 

52 

C6 

43 

4F 

4C 

4F 

55 

CB 

45 

59 

50 

C OLOURFC OLOUKEY P 




83 



84 




85 



86 



87 


3940 41 

44 

CA 

4F 59 

DO 

4C 

4F 

54 

C6 

47 

52 

CC 

47 

52 

C6 

AD J 0YPL0TFGR1GRF 





88 




89 






8A 




3950 

43 

4C 

53 

DO 

4C 

41 

59 

C3 

49 

52 

43 

4C 

45 

D3 

43 

41 

CLSPLAYCIRCLESCA 




8B 





8C 






8D 




3960 4C 45 

D3 

48 

41 

50 

45 

CE 

53 

48 

41 

50 

45 

D8 

53 

48 

LESHAPENSHAPEXSH 





8E 





8F 






90 



3970 

41 

50 45 

DO 

41 

49 

4E 

54 

C3 

50 

4P 

49 

4E 

54 

CE 

50 

APEPAINTCPOINTNP 





91 





92 




93 





3980 

4C 

4F 54 

D3 

4F 

55 

4E 

44 

C3 

48 

41 

52 

D2 

45 

4E 

55 

LOTSOUNDCHARRENU 



94 




95 




96 




97 




3990 

4D 

D3 

57 

41 

50 

C6 

4B 

45 

59 

C3 

41 

4C 

4C 

D6 

45 

52 

MSWAPFKEYCALLVER 





98 




99 










39AO 

49 

46 

59 

C2 

47 

52 

44 

CE 

42 

47 

52 

44 





IFYBGRDNBGRD 


39AD FE 80 
39AF 21 50 16 
39B2 CO 
39B3 El 
39B4 E3 
39B5 7E 
39B6 D6 7E 
39B8 5F 
39B9 23 
39BA E3 
39BB E5 
39BC 2A 8C 43 
39BF C9 


ANSPRUNG AUS GENTXT 


CP 

LD 

RET 

POP 

EX 

LD 

SUB 

LD 

INC 

EX 

PUSH 

LD 

RET 


80 

HL,1650 

NZ 

HL 

(SP),HL 
A,(HL) 

7F 

E,A 

Hl 

(SP),HL 
Hl 

Hl,(438C) 


ERWEITERTES KEYWORD? 

ANFANG DER KEYW0RDTABEL1E LADEN 
NEIN, ZURUECK 
RUECKSPRUNGADRESSE 
MIT CODEZEIGER VERTAUSCHEN 
ZEICHEN LADEN 

T0KEN-7F ERGIBT NR. DES KEYWORDS 
NR. DES KEYWORDS NACH E 
ZEIGER INC. 

RUECKSPRUNGADRESSE 
MIT CODEZEIGER VERTAUSCHEN 
ADRESSE KEYWORDTABLE 
ZURUECK ZU GEN-TEXT 


39CO 

FE 7F 


CP 

7F 

39C2 

28 08 


JR 

Z,39CC 

39C4 

FE 3C 


CP 

3C 

39C6 

D2 E7 

2A 

JP 

NC.2AE7 

39C9 

C3 6A 

ID 

JP 

1D6A 

39CC 

23 


INC 

HL 

39CD 

7E 


LD 

A,(HL) 

39CE D6 80 


SUB 

80 

39DO 

07 


RICA 


39D1 

4P 


LD 

C,A 

39D2 

06 00 


LD 

B,00 

39D4 

EB 


EX 

DE, HL 

39D5 

2A 8E 43 

LD 

H1,(438E) 

39D8 

C3 72 

ID 

JP 

1D72 


ANSPRUNG AUS PROGRAMMAUSFUEHRUNG 

ERWEITERTES EASIC-TOKEN 
JA — > 

ANWEISUNGSTOKEN? 

NEIN —> 

JA ZURUECK 
FF UEBER1ESEN 
TOKEN LADEN 
ERSTES T0KEN=O USW 
*2 ALS ZEIGER AUF TABELLE 
C=LOWZEIGER 
B=KIGHZEIGER 
DE=TEXTZEIGER 

HL=ADRESSE JUMP-TAELE COLOURBEFEHLE 
ZURUECK ZUR PROGRAMMAUSFUEHRUNG 


39DB C9 38 D5 
39EB 61 3D F8 


SPRUNGTABE LLE FUER COLOUR-ZUCATZBEFEHLE 
DOPPELTOKEN (80-99) 

38 97 19 52 36 CI 3P A9 38 BO 38 83 3C ;80-87 
3A Fl 3A DD 3C D8 3C D3 30 38 3E 97 19 ;88-8F 
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"BE - 

TB- 

93" 

U ViUM V SIS 

31 D3 36- 

bb 34 3A 33 4y 53 ;yu-y/ 


3AOB 

E4 

3P BB 

38 


;98-99 






** KEYPAD- 

FUNCTION 



3AOF 

7E 



LD 

A,(HL) 

;ZEICHEN LADEN 


3A10 

23 



IRC 

HL 

;POINTER INC. 


3A11 

E3 



PUSH 

HL 

;UND RETTEN 


3ai 2 

PE 

31 


CP 

31 

;KEYPAD1 ? 


3A14 

CA 

D8 

3A 

JP 

Z,3ADB 

; JA —> 


3A17 

PE 

32 


CP 

32 

;KEYPAD2 ? 


3A19 

CA 

DC 

3A 

JP 

Z,3ADC 

; JA —> 


3AI C 

C3 

C3 

3A 

JP 

3AC3 

;—> 






** JOY-FJNCTION 



3A1F 

7E 



LD 

A,(HL) 

;ZEICHEN LADEN 


3A20 

PE 

28 


CP 

28 

;= ( ? 


3A22 

28 

26 


JR 

Z.3A4A 

;JA —> JOY (N) 


3A24 

16 

04 


LD 

D,04 

;ZAEHLER BESETZEN 


3A26 

PE 

32 


CP 

32 

;J0Y2 ? 


3A28 

28 

07 


JR 

Z,3A31 

; JA —> 


3A2A 

CB 

3A 


SRL 

D 

;D=2 


3A2C 

PE 

31 


CP 

31 

; J0Y1 ? 


3A2E 

C2 

97 

19 

JP 

NZ,1997 

;NEIN, SN-ERROR 


3A31 

D7 



RST 

10 

;ZEICHEN LADEN 


3 A3 2 

PE 

39 


CP 

59 

;J0Y1Y ODER J0Y2Y ? 


3A34 

28 

03 


JR 

Z.3A3B 

; JA —> 


3 A3 6 

13 



DEC 

D 

;ZAEHLER-1 


3 A3 7 

PE 

38 


CP 

58 

;JOYIX ODER J0Y2X ? 


3A39 

20 

F3 


JR 

NZ.3A2E 

;NEIN, SN-ERROR 


3A3B 

23 



INC 

HL 

;P0INTER+1 


3A3C 

E3 



PUSH 

HL 

;UND RETTEN 


3A3D 

CD 

3E 

3A 

CALL 

3A5E 

;JOY UP AUFRUFEN 


3A40 

E6 

3F 


AND 

3P 

;NORMIEREN 


3A42 

3C 



INC 

A 

;+i 


3A43 

18 

16 


JR 

3A5E 







ANSPRUNG COLOUR 

COMPILER FUER JOY 


3A45 

18 

P4 


JR 

3A3B 

; 


3A47 

00 

00 

00 

NOP NOP 

NOP 







JOY (N) 




3A4A 

23 



INC 

HL 

;POINTER+1 


3A4B 

CD 

IC 

2B 

CALL 

2B1C 

;AUSDRUCK AUSWERTEN 


3A4E 

PE 

08 


CP 

08 

;GR0ESSER7 ? 


3A50 

D2 

4A 

IE 

JP 

NC.1E4A 

;JA, PC-ERROR 


3 A3 3 

37 



LD 

D.A 

;WERT NACH D 


3 A3 4 

CP 



RST 

08 

;SYNTAX CHECK 


3 A3 3 

29 





) 


3 A3 6 

14 



INC 

D 

;0-7 WIRD ZU 1-8 


3A37 

E3 



PUSH 

HL 

;POINTER RETTEN 


3 A3 8 

CD 

5E 3A 

CALL 

3A5E 

;JOY UP AUFRUFEN 


3A3B 

C3 

72 

3F 

JP 

3P72 

;—> 






UP JOYD 

(AF.BC.DE,HL) 






WERTET 

DEN DURCH 

D ADRESSIERTEN JOYSTICK AUS 






I:D-WELCHER JOYSTICK 






0:AKKU= 

WERT 



3A3E 

CD 

A9 

3A 

CALL 

3AA9 

;PORTI AUF AUSGABE, PORT2 

AUF EINGABE 

3A61 

AP 



XOR 

A 

;A LÜESCHEN 


3A62 

IE 

80 


LD 

E,80 

;MASKEN UND SCHLEIFENZAEHLER 

3A64 

B3 



OR 

E 

;NEUEN GESCHACHTELTEN WERT ERZEUGEN 

3 Ab 3 

6P 



LD 

L,A 

;NACH L ERINGEN 


3A66 

26 

OE 


LD 

H,OE 

;AUF PORT 1 


3A68 

CD 

E3 

3A 

CALL 

3AB3 

;L AUSGEBEN 


3A6B 

24 



INC 

H 

;VON IORTü WERT 


3A6C 

CD 

EP. 

3A 

CALL 

3ABB 

;IN AKKU EINLESEN 


3A6F 

D3 



PUSH 

DE 

;DE RETTEN 


3A70 

17 



RLA 


;ROTIEREN DES AKKUS 


3A71 

13 



DEC 

D 

:D=D—1 


3A72 

20 

PC 


JR 

NZ,3A70 

;NOCH NICHT SELEKTIERT. WEITER 

3A74 

Dl 



POP 

DE 

;DE ZURUECK 


3A75 

7D 



LD 

A,L 

;ALTEN WERT NACH A 


3A76 

38 

03 


JR 

C,3A7B 

;WERT ZU KLEIN —> 


3A78 

7B 



LD 

A,S 

;WERT ZU GROSS 


3A79 

2P 



CPL 


; LETZTES GESETZES BIT 


3A7A 

A5 



AND 

L 

;UEBER MASKE LOESCHEN 


3A7B 

CB 

3B 


SRL 

E 

:MASKE RECHTS SCHIEBEN 


3A7D 

30 

E5 


JR 

NC,3A64 

:WEITER, WENN NOCH NICHT FERTIG 

3A7P 

C9 



RET 








EINSPRUNG COLOUR 

COMPILER KEYPAD 1 


3A80 

C3 

14 

3F 

JP 

3FU 



3A83 

00 



NOP 








EINSPRUNG COLOUR 

COMPILER KEYPAD2 


V>3 

> 

CO 

-Ci. 

C3 

18 

3F 

JP 

3P18 







UP KEYPAD 

(AF.BC.DE,HL) 






ERMITTELT GEDRUECKTE TASTE DER KEYPADS 






I:DEMARKIERUNG FUER KEYPAD (FE FUER 1 :F7 FUER 

2) 





0: AKKU='tfERT DER GEDRUECKIEN TASTE 


3A87 

CD 

A9 

3A 

CALL 

3AA9 

;PORTI AUF AUSGABE, PCRT2 

AUF EINGABE 

3A8A 

IE 

E4 


LD 

E.E4 

;LOWBYTE TABELLENADRESSE 


3A8C 

Ob 

03 


LD 

B,03 

;ZEILENZAEHLER 


3A8E 

bA 



LD 

L.D 

;MASKE NACH L 


3A8P 

26 

OE 


LD 

H.OE 

;UND AUF PORTI 


3A91 

CD 

B3 

3A 

CALL 

3AB3 

;AUSGEBEN 


3A94 

24 



INC 

H 

;WEKT VON P0RT2 


3A95 

CD 

BB 

3A 

CALL 

3ABB 

;HOLEN 
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3Ayb UE U4- 

-LD- 

0,04 

SPALTENZAEHLEK 

3A9A 1F 

RRA 


GEDRUECKTE TASTE GEFUNDEN? 

3A9B 30 08 

JR 

NC,3AA5 

JA —> 

3A9D IC 

INC 

E 

LOWBYTE ERHOEHEN 

3A9E OD 

DEC 

C 

SPALTENZAEHLER-1 =0 ? 

3A9F 20 F9 

JR 

NZ.3A9A 

NEIN --> WEITERE SPALTEN UNTERSUCHEN 

3AA1 CB 02 

RLC 

D 

MASKE ROTIEREN FUER NAECHSTE ZEILE 

3AA3 10 E9 

DJNZ 

3A8E 

NOCH NICHT ALLE ZEILEN —> 

3AA5 16 3Ä 

LD 

D ,7a % 

HIGHBYTE TABELLE LADEN 

3AA7 1A 

LD 

A,(DE) 

WERT ENTNEHMEN 

3AA8 C9 

RET 

UP P1AP2E (AF,C.HL) 

SCHALTET PORTI AUF AUSGABE PORT2 AUF EINGABE 

3AA9 26 07 

LD 

H,07 

PSG REGISTER7 

3AAB CD BB 3A 

CALL 

3ABB 

WERT HOLEN 

3AAE E6 3F 

AND 

3F 

BIT7+6 AUSE T ENDEN 

3ABO F6 40 

OR 

40 

PORTI AUF AUSGAEE PORT2 AUF EINGABE 


3AB2 6F 


3AB3 OE P8 
3AB5 ED 61 
3AB7 OC 
3AB8 ED 69 
3ABA C9 


3ABB OE F8 
3ABD ED 61 
3ABF OC 
3AC0 ED 78 
3AC2 C9 


SOUND H,A 
LD L,A 


;NACH L 


UP PSGHL (C,HL) 

GIBT AN PSG-REGISTER H DEN WERT L AUS ENTSPRICHT SOUND H,L 
I:H=PSG-REGISTER L=WERT 
0 :/ 

LD C,F8 ;PSG PORT 

OUT (C),H ;REGISTER H ANSPRECHEN 

INC C ;UND AN DAS REGISTER 

OUT (C),L ;L AUSGEBEN 

RET 


UP INPSG (A,C,H) 

HOLT WERT VON PSG REGISTER H IN A 

I:H=PSG REGISTER 

0:A=INHALT DES REGISTERS 


3AC3 

3AC4 

3AC5 

3AC6 

3AC7 

3ACA 

3ACC 

3ACF 

3AD0 

3AD1 

3AD2 

3AD3 

3AD4 

3AD6 

3AD8 

3ADA 

3ADC 

3ADE 

3AE1 


El 

2B 

CF 

28 

CD C2 3F 

FE 02 

D2 4A IE 

F5 

CF 

29 

Fl 

E5 

FE 01 
28 04 
16 FE 
18 02 
16 F7 
CD 87 3A 
C3 72 3F 


3AF1 CD IC 2B 
3AF4 32 14 43 
3AF7 C9 


3AFS CD 
3AFB F5 
3AFC CF 
3AFD 2C 
3AFE CD 
3B01 F5 
3B02 CF 
3B03 2C 
3B04 CD 
3B07 Dl 
3B08 CI 
3B09 4A 
3B0A E5 
3B0B 57 
3B0C IE 
3B0E 26 
3B10 FA 
3B13 CD 
3B16 CD 
3B1 9 CD 
3B1C C5 
3B1D D5 
3B1E E5 
3B1F 2E 
3B21 63 


IC 2B 


IC 2B 


IC 2B 


00 

80 

52 3B 
7A 3B 
7A 3B 
5E 3B 


80 


LD 

C ,F8 

;PSG PORT 

OUT 

(C),H 

;REGISTER H ANSPRECHEN 

INC 

C 

;UND DEN WERT 

INP 

A, (C) 

;DES REGISTERS HOLEN 

RET 



ANSPRUNG VON KEYPAD- 

-ANWEISUNG 

POP 

HL 

;POINTER ZURUECK 

DEC 

HL 

;POINTER-1 

RST 

08 

;SYNTAX CHECK ^ 

CALL 

3FC2 

;WERT-1 HOLEN 

CP 

Ö2 

;GROESSER 1 ? 

JP 

NC,1E4A 

;NEIN, FC-ERROR 

PUSH 

AF 

;AKKU RETTEN 

RST 

08 

;SYNTAX CHECK ^ 

POP 

AF 

;WERT ZURUECK 

PUSH 

HL 

;POINTER RETTEN 

CP 

01 

;KEYPAD(1) ? 

JR 

Z,3ADC 

; JA —> 

LD 

D ,FE 

;MASKE LADEN 

JR 

3ÄDE 

;—> 

LD 

D ,F7 

;MASKE LADEN 

CALL 

3A87 

;UP KEYPAD AUFRUFEN 

JP 

3F72 


TABELLE 

FUER KEYPADCODES 

02 05 08 

OA 01 04 07 

OB 

SCALE-ANWEISUNG 


CALL 

2B1C 

;AUSDRUCK AUSWERTEN UND 

LD 

(4314),A 

;ALS SCALEFAKTOR ABSPEICHERN 

RET 



CIRCLE- 

ANWEISUNG 


CALL 

2B1C 

;X-KOORDINATE HOLEN 

PUSH 

AF 

;UND RETTEN 

RST 

08 

;SYNTAX CHECK 

CALL 

2B1C 

;Y-KOORDINATE HOLEN 

PUSH 

AF 

;UND RETTEN 

RST 

08 

;SYNTAX CHECK 

CALL 

2B1C 

;RADIUS HOLEN 

POP 

DE 

;D=Y-KOORDINATE 

POP 

BC 

;B=X-KOORDINATE 

LD 

C.D 

;C=Y-KOORDINATE 

PUSH 

HL 

;POINTER RETTEN 

LD 

D,A 

;D=RADIUS 

LD 

E,00 

; =0 

LD 

H,80 

;MARKER SETZEN 

JP 

M,3B52 

;FERTIG, WENN D<E 

CALL 

3B7A 

;SETZT 4 PUNKTE UND VERTAUSCHT 

CALL 

3B7A 

;DESGLEICHEN 

CALL 

3B5F 

;NEGIERT E UND D 

PUSH 

BC 

;REGISTER RETTEN 

PUSH 

DE 

y 

PUSH 

HL 


LE 

L,80 

;RUNDUNGSFAKTOR 

LD 

H,E 

;AUSGANGSWERT 


• Röckrath 


Seite 106 

















ROM-Listinc für COLOUR-GENIE Copyr ight (C) 1983: Norbert Heicke und Luidger Röckrath 

hjmm rro— ° in MW" ' •Sf'HI.H!! HtKl iH!W _ 


j>H72- 

~Üb 

08 

P. Z. _ 2 — 

LD 

B, 08” 

-; SOHLEIFENZAEKLEH 

3B24 

IE 

00 


LD 

E,00 

; =0 

3B26 

29 



ADD 

HL,HL 

;HL=HL*2 

3B27 

ED 

52 


SBC 

HL,DE 

;WENIGER DE<0 ? 

3B29 

38 

03 


JR 

C,3B2E ; JA —> 

3B2B 

23 



INC 

HL 

; -t-1 

3B2C 

16 

01 


JR 

3B2F 

; —> 

3B2E 

19 



ADD 

HL,DE 

;DE AUFADDIEREN 

3B2F 

10 

F5 


DJNZ 

3B26 

;SCHLEIFE 8* 

3B31 

7D 



LD 

Ä,L 

; WERT NACH A RETTEN 

3B32 

El 



POP 

HL 

;REGISTER ZURUECK 

3B33 

Dl 



POP 

DE 


3B34 

CI 



POP 

BC 


3B35 

84 



ADD 

H 

;H AUFADDIEREN 

3B36 

67 



LD 

H,A 

;UND NACH H ZURUECK 

3B37 

7A 



LD 

A,D 

;D-WERT 

3B38 

2E 

00 


LD 

L,00 

;WENIGER 

3B3A 

9D 



SBC 

L 

;CARRY 

3B3B 

57 



LD 

D,A 

;BERECHNEN UND NACH D 

3B3C 

IC 



INr 

E 

;X-WERT +1 

"3B3D 

7A 



LD 

A,D 

;VERGLEICHEN MIT Y-WERT 

3B3E 

BB 



CP 

E 

;WENN D<E, 

3B3P 

C3 

10 

3B 

JP 

3B10 

;M-FLAG GESETZT 





SETZT PUNKT AN X=B+E UND Y=C+D 

3B42 

C5 



PUSH 

BC 

;REGISTER RETTEN 

3B43 

D5 



PUSH 

DE 

9 

3B44 

E5 



PUSH 

HL 


3B45 

7B 



LD 

A,E 

;E+B BERECHNEN 

3B46 

80 



ADD 

B 

;UND NACH 

3B47 

6F 



LD 

L,A 

;L BRINGEN (X) 

3B48 

7A 



LD 

A,D 

;D+C BERECHNEN 

3B49 

81 



ADD 

C 

;UND NACH 

3B4A 

67 



LD 

H,A 

;H BRINGEN 

3B4B 

CD 

8A 

3E 

CALL 

3B8A 

;PLOT L,H 

3B4E 

El 



POP 

HL 

;REGISTER ZURUECK 

3B4F 

Dl 



POP 

DE 


3B50 

CI 



POP 

BC 


3B51 

C9 



RET 







ENDE DER CIRCLE-ANWEISUNG 

3B52 

El 



POP 

HL 

;TEXTPOINTER ZURUECK 

3B53 

C9 



RET 







NEGIERT 

E 


3B54 

7B 



LD 

A,E 

;E NACH A 

3B55 

ED 

44 


NEG 


;NEGIEREN 

3B57 

5F 



LD 

E, A 

;NACH E 

3B58 

C9 



RET 







NEGIERT 

D 


3B59 

7A 



LD 

A ,D 

;D NACH A 

3B5A 

ED 

44 


NEG 


; NEGIEREN 

3B5C 

57 



LD 

D,A 

; NACH D 

3B5D 

C9 



RET 







NEGIERT 

D UND 

E 

3B3E 

CD 

54 

3B 

CALL 

3B54 

; NEGIERT E 

3B61 

CD 

59 

3B 

CALL 

3B59 

; NEGIERT D 

3B64 

C9 



RET 







NEGIERT 

E UND 

SETZT B+E,C+D 

3B65 

CD 

54 

3B 

CALL 

3B54 

; NEGIERT E 

3B68 

CD 

42 

3B 

CALL 

3B42 

; PLOT(B+E,C+D) 

3B6B 

C9 



RET 







NEGIERT 

D UND 

SETZT B+E, C+D 

3B6C 

CD 

59 

3B 

CALL 

3B5S 

; NEGIERT D 

3B6F 

CD 

42 

3B 

CALL 

3B42 

; PLOT(B+E, C+D) 

3B72 

C9 



RET 







BRINGT D NACH 

E UND E NACH A,D,L 

3B73 

7P 



LD 

A,E 

;E NACH 

3B7 4 

6F 



LD 

L,A 

; L 

3B75 

7A 



LD 

A,D 

;D NACH 

3B76 

5F 



LD 

E,A 

; E 

3B77 

7D 



LD 

A,L 

;L NACH 

3B78 

57 



LD 

D,A 

; D 

3B79 

C9 



RET 







4FACH SETZROUTINE 

3B7A 

CD 

4? 

3B 

CALL 

3B42 

; PLOT(B+E, C+D) 

3B7D 

CD 

65 

3B 

CALL 

3B65 

;PLOT(B-E, C+D) 

3B80 

CD 

6C 

3B 

CALL 

3B6C 

; PLOTiB-E, C-DJ 

3B83 

CD 

65 

3B 

CALL 

3B65 

; PLOT(B+E, C-D) 

3B86 

CD 

73 

3B 

CALL 

3B73 

;D UND E VERTAUSCHEN 

3B89 

C9 



RET 






UP 

PLOTHL 

(AF.BC 

,DE,HL) 





SETZT EINEN PUNKT AN L.H (X,Y) 





I :L=X ; 

H=Y ; 

(4313)=FARBCODE 





0:/ 



3B8A 

3A 

13 

43 

LD 

A, 4313 ; FCOLOUR LADEN 

3B8D 

Eb 

03 


AND 

03 

; 0—3 

3B8F 

4F 



LD 

C,A 

; FARBE NACH C 

3B90 

3E 

9F 


LD 

A,9F 

; GROESSTER X-WERT 

3B92 

BD 



CP 

L 

;< L ? 

3B93 

D8 



RET 

C 

;JA, FERTIG 

3B94 

3E 

65 


LD 

A,65 

;GROESSTER Y-WERT 
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(3BC1 
3BC3 3A 
3BC6 P5 
3BC7 AO 
3BC8 32 
3BCB CD 
3BCE 38 
3BD0 3A 
3BD3 F5 
3BD4 3A 
3BD7 F5 
3BD8 CD 
3BDB 32 
3BDE F5 
3BDF CF 
3BEO 2C 
3BE1 CD 
3BE4 32 
3BE7 D9 
3BE8 6F 
3BE9 Dl 
3BEA 62 
3BEB CI 
3BEC Dl 
3BED 58 
3BEE D9 
3BEF E5 
3BF0 D9 
3BF1 CD 
3BF4 El 
3BF5 CD 
3BF8 28 
3BFA Fl 
3BFB 32 
3BFE C9 



RET 

c 


LD 

A,L 


LD 

L,H 

00 

LD 

H, 00 


LD 

D,H 


LD 

E,L 


ADD 

HL,HL 


ADD 

KL,HL 


ADD 

KL,DE 


ADD 

HL,HL 


ADD 

HL,HL 


ADD 

HL, HL 


LD 

E,A 

3B 

SRL 

E 

3B 

SRL 

E 

48 

LD 

D,48 


ADD 

HL,DE 

03 

AND 

03 


INC 

A 


LD 

B,A 

FC 

LD 

A,FC 


RRCA 



RRCA 


09 

RRC 

C 

09 

RRC 

C 

F8 

DJNZ 

3BB2 


AND 

(HL) 


OR 

C 


LD 

(hl),a 


RET 



** NPLOT 


00 . 

LD 

B,00 ; 

06 03 

LD 

A,(0306) 


** PLOT 


06 03 

LD 

B,03 

13 43 

LD 

A,(4313) 


PUSH 

AF 


AND 

B 

13 43 

LD 

(4313),A 

7B 3C 

CALL 

3C7B 

2F 

JR 

C,3BFF 

15 43 

LD 

A,(4315) 


PUSH 

AF 

16 43 

LD 

A,(4316) 


PUSH 

AF 

IC 2B 

CALL 

2B1C 

15 43 

LD 

(4315), A 


PUSH 

AF 


RST 

08 

IC 2B 

CALL 

2B1C 

16 43 

LD 

(4316),A 


EXX 



LD 

L,A 


POP 

DE 


LD 

H,D 


POP 



POP 

DE 


LD 

E,B 


EXX 



PUSH 

HL 


EXX 


1F 3C 

CALL 

3C1F 


POP 

HL 

7B 3C 

CALL 

3C7B 

D6 

JR 

Z,3BD0 


POP 

AF 

13 43 

LD 

(4313),A 


RET 



PLOT 

OHNE 'TO' 

IC 2B 

CALL 

2B1C 


PUSH 

AF 


RST 

08 

IC 2B 

CALL 

2B1C 


PUSH 

AF 

7B 3C 

CALL 

3C7B 

CA 

JR 

NC,3BD8 


POF 

AF 

16 43 

LD 

(4316),A 


LD 

D,A 


POP 

AF 

15 43 

LD 

(4315),A 


LD 

E,A 


EX 

DE, HL 


PUSH 

DE 

8A 3B 

CALL 

3B8A 

D5 

JR 

3BF4 


JA, FERTIG 
X-WERT NACH A 
Y-WERT NACH L 
KL = Y-WERT 
DE = Y-WERT 

HL*2 

HL*4 

HH*5 

HL*10 

HL* 20 

HL*40 

X-WERT NACH E 
GETEILT 4 

DE=4800 + X/4 

ERGIBT SPEICHERADRESSE 

POSITION IM BYTE 

0-3 WIRD ZU 1-4 

ALS ZAEHLER 

MASKE LADEN 

MASKE ROTIEREN 

FARCODE ROTIEREN 

BIS BITPOSITION ERREICHT 

BITS AUS DER BILDSCHIRMADRESSE HERAUSBLENDEN 
UND GEMAESS FARBCODE SETZEN 
UND ABSPEICHERN 


; FCOLOURMASKE 0 


FCOLOURMASKE 3 
FCOLOUR LADEN 
RETTEN 

ERGIBT FARBE ODER NULL 

ABSPEICHERN 

PRUEFT AUF 'TO' 

NICHT PLOT TO —> 

LETZTE X-POSITION EUER PLOT 
RETTEN 

LETZTE Y-POSITION FUER PLOT 

RETTEN 

X-WERT HOLEN 

ABSPEICHERN 

UND RETTEN 

SYNTAX CHECK 

Y-WERT HOLEN 
ABSPEICHERN 
ZWEITREGISTERSATZ 
L = Y2-WERT 
X2-WERT 
H = X2-WERT 
Y1-WERT 
D = XI-WERT 
E = Y1-WERT 

ZWEITREGISTERSATZ ZURUECK 
POINTER RETTEN 
ZWEITREGISTERSATZ HOLEN 
VON D,E NACH H,L LINIE ZIEHEN 
POINTER ZURUECK 
NOCH EIN 'TO' 

JA —> 

FARBE ZURUECK 
UND ABSPEICHERN 


X-WERT HOLEN 
RETTEN 
SYNTAX CHECK 

Y-WERT HOLEN 

RETTEN 

'TO' TOKEN ? 

JA — > 

Y-WERT ZURUECK 

ALS LETZTEN Y-WERT ABSPEICHERN 
UND NACH D 
X-WERT ZURUECK 

ALS LETZTEN X-WERT ABSPEICHERN 
UND NACH E 
HL X,Y WERT 
POINTER RETTEN 
PLOT L,H 
—> 


3C1F CD C6 3C 
3C22 DF 


UP DETOHT. (AF,BC,DE,HL) 

ZIEHT LINIE VON D.E NACH H,L 
I;D=X1 E=Y1 H=X2 L=Y2 

CALL ^CC6 ;PLOT H,L (H UND L VERTAUSCHEN UND PLOTL.H REGISTER UNVERAENDERT 

RST 18 ;HL GLEICH DE ? (ANFANGSPUNKT = ENDPUNKT) 
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;ja, —7 FEHTTü 

DE RETTEN (XI,Y1) 

Y 1 WERT NACH A 
DAVON Y2 WERT ABZIEHEN 
NEGATIV ? JA, NEGIEREN 
RICHTUNGSBIT OBEN ODER UNTEN NACH BIT 7 
CARRY NACH BIT 6 
BETRAG NACH B 
CARRY NACH BIT 5 

RICHTUNGSBIT OBEN ODER UNTEN IN BIT 4 
XI WERT NACH A 
DAVON X2 WERT ABZIEHEN 
NEGATIV ? JA, BETRAG BILDEN 

RICHTUNGSBIT (RECHTS ODER LINKS) NACH BIT 7, RI NACH BIT 3 
CARRY SETZEN 

BIT 7 GESETZT, R2 BIT 6, RI BIT 2 
X-BETRAG GROESSER Y-BETRAG ? 

NEIN —> 

D = X-BETRAG 

E = Y-BETRAG 
RICHTUNGSFLAGS RETTEN 
X2,Y2 RETTEN 

DEN GROESSEREN DER BEIDEN 
BETRAEGE NACH C BRINGEN 
A=0 

DIE DREI HIGH BYTES 
B, D UND H 
AUF NULL SETZEN 
DEN KLFINEREN DER BEIDEN 
BETRAEGE NACH L BRINGEN 
HL = HL * 2 

ENTSPRICHT KLEINEREM BETRAG 
2*KBETRAG - GBETRAG (KLEINER,GROESSER) 

BC = BC * 2 

ENTSPRICHT GROESSEREM BETRAG 
DE - DE * 2 

ENTSPRICHT KLEINEREM BETRAG 
NACH A RETTEN 

ALLE REGISTER (AUSSER AF) RETTEN 
X2,Y2 ZURUECK 
RICHTUNGSFLAGS ZURUECK 
XI,Y1 ZURUECK 
BIT7 -> CARRY 

KEIN CARRY —> FLAGS UMSETZEN, NEU BERECHNEN 
NEU BERECHNEN 
PUNK" SETZEN 
ENDWERT X ERREICHT ? 

NEIN, —> 

ENDWERT X,Y ERREICHT ? 

JA, —> RET 

ALLE REGISTER AUSTAUSCHEN 
+ KLEINEREM BETRAG 
MARKIERUNG SETZEN 

ALLE REGISTER (AUSSER AF) AUSTAUSCHEN 


miau 

438" 


-RET- 

L 

; 

3024 

00 


NOP 



7029 

00 


NOP 



7026 

D9 


PUSH 

DE 


3C27 

7B 


LD 

A,E 


3C28 

99 


SUB 

L 


3C29 

DC 

SB 3C 

CALL 

C,3C8B 


3C2C 

CB 

19 

RR 

C 


3C2E 

CB 

39 

SRL 

C 


7C30 

47 


LD 

B,A 


3C71 

CB 

39 

SRL 

C 


7033 

CB 

39 

SRL 

C 


7079 

7A 


LD 

A,D 


7C76 

94 


SUB 

H 


7C37 

DC 

8B 3C 

CALL 

C,3C8B 


7C7A 

CB 

19 

RR 

C 


3C3C 

37 


SCF 



3C3D 

CB 

19 

RR 

C 


7C7F 

B8 


CP 

B 


7C40 

78 

4D 

JR 

C,3C8F 


7C42 

97 


LD 

D,A 


3C47 

78 


LD 

A,B 


7044 

9F 


LD 

E,A 


7049 

09 


PUSH 

BC 


7C46 

E9 


PUSH 

HL 


7047 

7A 


LD 

A,D 


7C48 

4F 


LD 

C,A 


7049 

7E 

00 

LD 

A,00 


7C4B 

97 


LD 

D,A 


7C4C 

47 


LD 

B,A 


7C4D 

67 


LD 

H,A 


3C4E 

7E 


LD 

A,E 


3C4F 

6F 


LD 

L,A 


7C90 

CB 

25 

SLA 

L 


7C92 

CB 

14 

RL 

H 


7C94 

ED 

42 

SBC 

HL,BC 


7096 

CL 

21 

SLA 

C 


3C98 

CB 

10 

RL 

B 


3C9A 

CB 

23 

SLA 

E 


7C9C 

CB 

12 

RL 

D 


7C9E 

7C 


LD 

A,H 


3C9F 

D9 


EXX 



7C60 

El 


POP 

HL 


3C61 

CI 


POP 

BC 


3C62 

Dl 


POP 

DE 


7067 

CE 

27 

SLA 

A 


7069 

D4 

AO 3C 

CALL 

NC.3CA0 


3068 

CD 

AE 3C 

CALL 

3CAF 


3C6B 

CD 

C6 3C 

CALL 

3CC6 


3C6E 

7A 


LD 

A,D 


3C6F 

BC 


C? 

H 


3C70 

20 

03 

JR 

NZ,3C75 


3C72 

7B 


LD 

A,E 


3C77 

BD 


CP 

L 


3C74 

08 


PET 

Z 


SC79 

D9 


EXX 



7C76 

19 


ADD 

HL, DE 


7C77 

70 


LD 

A,H 


7078 

D9 


EXX 



3C79 

18 

E8 

JR 

3C63 





PRTJEFT 

'TO' TOKEN 


3C7B 

7E 


LD 

A,(KL) 


3C7C 

FE 

BD 

CP 

BD 


3C7E 

20 

OD 

JP 

NZ,3C8D 


3C80 

23 


INC 

EL 


3C81 

AF 


XOR 

A 


3C82 

C9 


RET 






** FCLS-ANWEISUNG 


3C83 

2B 


DEC 

HL 


3084 

D7 


RST 

10 


3C89 

3E 

00 

LD 

A,00 


3087 

03 

4A 38 

JP 

384A 


3C8A 

00 


NOP 






NEGIEREN CARRY-FLAG 

SI 

3C8B 

ED 

44 

NEG 



3C8D 

77 


SCF 



3 CSE 

09 


RET 






C 4MAL 

ROTIEREN UND 

RI 

3C8F 

CD 

97 3C 

CALL 

3C97 


7C92 

9F 


LD 

E,A 


3C93 

78 


LD 

A,B 


3094 

97 


LD 

D,A 


3^99 

18 

AE 

JR 

3C45 





C 4MAL 

ROTIEREN 


3C97 

CB 

09 

RRC 

C 


3099 

CB 

09 

RRC 

C 


3C9B 

CB 

09 

RRC 

c 


3C9D 

CB 

09 

RRC 

c 


309F 

C9 


RET 



3CAG 

CD 

97 30 

CALL 

3C97 


3CA3 

CD 

AF 3C 

CALL 

3CAF 


3CA6 

CD 

97 3C 

CALL 

3C97 


3CA9 

D9 


EXX 




TOKEN LADEN 
= 'TO' ? 

NEIN —> 

JA, POINTER INC. 
CARRY LOESCHEN 


POINTER DEC. 

ZEICHEN LADEN 

AKKU MIT NULL VORBESETZEN 

— > 


GISTER VERTAUSCHEN 

4MAL ROTIEREN (RICHTUNGSBITS UMSETZEN) 
E = X-EETRAG 
B NACH A 
D = Y-BETRAG 

—> 


BIT7 EIS BIT4 VON C 
;VERDEN ZU BIT3 BIS BITO 
;EIT3 BIS BITO VON C 
; WERDEN ZU BIT7 BIS BIT4 


RICHTUNGSFLAG UMSETZEN 
NEUEN X2,Y2-WERT BESTIMMEN 
RICHTUNGSFLAG UMSETZEN 
REGISTER AUSTAUSCHEN 
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3CAA B'l 

-UR- 

Tl 

3CAB ED 42 

SBC 

HL,BC 

3CAD D9 

EXX 

3CAE C9 

RET 



Copyright (C) 1983: Norbert Heicke und Luidger Röckrath 

^rrnrnrinEscEEN--°- 

;NEUEN WERT BESTIMMEN 
;REGISTER AUSTAUSCHEN 



NEUEN 

X2.Y2-WERT BESTIMMEN 

3CAP CB 79 

BIT 

7,C 

BIT7 VON C = 0 ? 

3CB1 CA BD 

3C JP 

Z.3CBD 

JA, —> 

3CB4 CB 71 

BIT 

6 ,C 

BIT6 VON C = 0 ? 

3CB6 C2 BB 

3C JP 

NZ.3CBB 

NEIN, —> 

3CB9 24 

INC 

H 

X2-WERT ERHOEHEN 

3CBA C9 

RET 



3CBB 25 

DEC 

H 

X2-WERT ERNIEDRIGEN 

3CBC C9 

RET 



3CBD CB 71 

BIT 

6, C 

BIT6 VON C = 0 ? 

3CBF C2 C4 

3C JP 

NZ.3CC4 

NEIN, —> 

3CC2 2C 

INC 

L 

Y2-WERT ERHOEHEN 

3CC3 C9 

RET 



3CC4 2D 

DEC 

L 

Y2-WERT ERNIEDRIGEN 

3CC5 C9 

RET 




VERTAUSCHT H UND L UND PLOTTET L.H 

3CC6 C5 

PUSH 

BC 

REGISTER RETTEN 

3CC7 D5 

PUSH 

DE 


3CC8 E5 

PUSH 

HL 


3CC9 7C 

LD 

A,H 

L MIT H 

3CCA 65 

LD 

H.L ;VERTAUSCHEN 

3CCB 6E 

LD 

L,A 


3CCC CD 8A 3B CALL 

3B8A 

PLOT L,H 

3CCP El 

POP 

HL 

REGISTER ZURUECK 

3CD0 Dl 

POP 

DE 


3CD1 CI 

POP 

BC 


3CD2 C9 

RET 




** XSHAPE 

-ANWEISUNG 


3CD3 11 03 

03 LD 

DE,0303 

XSHAPE-CODE LADEN 

3CD6 18 08 

JR 

3 CEO 

— > 


** NSHAPE 

-ANWEISUNG 


3CD8 11 00 

00 LD 

DE,0000 

NSHAPE-CODE LADEN 

3CDB 18 03 

JR 

3 CEO 

— > 


+* SHAPE- 

ANWEISUNG 


3CDD 11 00 03 LD 

BE, 0300 

SHAPE-CODE LADEN 

3CEO ED 53 

17 43 LD 

(4317),DE 

SHAPE-CODE RETTEN 

3CE4 2B 

DEC 

HL 

POINTER DEC. 

3CE5 D7 

RST 

10 

ZEICHEN LADEN 

3CE6 CD IC 

2B CALL 

2B1C 

X-WERT HOLEN 

3CE9 F5 

PUSH 

AP 

UND RETTEN 

3CEA CP 

RST 

08 

SYNTAX CHECK 

3CEB 2C 




3CEC CD IC 

2B CALL 

2B1C 

Y-WERT HOLEN 

3CEP Dl 

POP 

DE 

D = X-WERT 

3CP0 5P 

LD 

E,A 

E = Y-WERT 

3CP1 E5 

PUSH 

HL 

POINTER RETTEN 

3CF2 C3 A2 

35 JP 

35A2 

SHAPETABLE ANFANG NACH HL 

3CP5 46 

LD 

B,(HL) 

SHAPETABLE LAENGE NACH B 

3CF6 23 

INC 

HL 

POINTER AUF ERSTES SHAPEZEICHEN 

3CP7 3Ä 14 

43 LD 

A,(4314) 

SCALEPAKTOR NACH A 

3CFA B7 

OR 

A 

= 0 ? 

3CPB 28 4B 

JR 

Z,3D48 

JA —> FERTIG 

3CFD 4P 

LD 

C,A 

SCALEPAKTOR NACH C 

3CFE 7E 

LD 

A,(HL) 

SHAPEZEICHEN LADEN 

3CPF CB 2F 

SRA 

A 

SHAPEZEICHEN 4MAL 

3D01 CB 2P 

SRA 

A 

ARITHMETISCH RECHTS SCHIEBEN 

3D03 CB 2P 

SRA 

A 

BIT7 UNVERAENDERT 

3D05 CB 2F 

SRA 

A 


3D07 08 

EX 

AP.AP' 

IN ZWEITAKKU RETTEN 

3D08 3E 01 

LD 

A,01 

MERKER 

3D0A Ö8 

EX 

AP,AP' 

UND WIEDER ZURUECK 

3D0B P5 

PUSH 

AP 

ERSTE LINIE RETTEN 

3D0C CB 2P 

SRA 

A 

UNTEN ODER OBEN ? 

3D0E 38 3D 

JR 

C,3D4D 

JA — > 

3D10 CB 2P 

SRA 

A 

LINKS ? 

3D12 38 36 

JR 

C,3D4A 

JA — > 

3D14 14 

INC 

D 

RECHTS —> D=D+1 (X-WERT) 

3D15 C5 

PUSH 

BC 

LAENGE UND SCALEPAKTOR RETTEN 

3D16 D5 

PUSH 

DE 

X,Y WERT RETTEN 

3D17 E5 

PUSH 

HL 

ZEIGER AUF SHAPETABLE RETTEN 

3D18 6P 

LD 

L,A 

FARBE DER LINIE NACH L 

3D19 3A 13 

43 LD 

A,(4313) 

FCOLOUR HOLEN 

3D1C P5 

PUSH 

AP 

UND RETTEN 

3D1D 7D 

LD 

A.L 

FARBE DER LINIE ZURUECK NACH A 

3D1E 2A 17 

43 LD 

HL,(4317) 

SHAPEINFO NACH HL 

3D21 A4 

AND 

H 

BLENDET BITO+1 AUS (BZW LOESCHT BEI NSHAPE) 

3D22 AD 

XOR 

L 

INVERTIERT FARBE BEI XSHAPE 

3D23 32 13 

43 LD 

(4313),A 

SHAPEFARBE ABSPEICHERN 

3D26 6A 

LD 

L,D 

X-WERT NACH L 

3D27 63 

LD 

H,E 

Y-WERT NACH H 

3D28 CD 8A 3B CALL 

3B8A 

PLOT L,H 

3D2B PI 

POP 

AP 

FCOLOURCODE ZURUECK 

3D2C 32 13 

43 LD 

(4313),A 

NACH 4313 

3D2P El 

POP 

HL 

ZEIGER AUF SHAPETABLE ZURUECK 

^P3n pi 

POP 

DE 

X,Y WERTE ZURUECK 

3D31 CI 

POP 

BC 

SCALEPAKTOR UNL SHAPETABLELAENGE ZURUECK 

pi 

POP 

AP 

ERSTE LINIE ZURUECK 

3D33 OD 

DEC 

C 

SCALEPAKTOR DEC. UND WIEDERHOLEN 

3D34 20 D5 

JR 

NZ,3D0B 

SOLANGE NOCH NICHT 0 

3D36 C5 

PUSH 

BC 

BC RETTEN 
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3D37Ö5 

EX 

AI ,A H 

; MERKER NACH A 

3D38 3D 

DEC 

A 

;A=A-1 

3D39 47 

LD 

B,A 

;MERKER FUER LINKES ODER RECHTES HALBYTE NACH B 

3D3A 08 

EX 

AP,AP' 

;MERKER WIEDER ZURUECK 

3d3b 04 

INC 

B 

;B=0 ? 

3D3C 05 

DEC 

B 



3D3D CI 
3D3E 3A 14 43 
3D41 4P 
3D42 7E 
3D43 28 C6 
3D45 23 
3D46 10 AP 
3D48 El 
3D49 C9 


3D4A 15 
3D4B 18 C8 


3D4D CB 2F 
3D4F 38 03 
3D51 IC 
3D52 18 CI 


3D54 ID 
3D55 18 BE 


3D57 OC 
3D58 23 
3D59 EB 
3D5A 23 
3D5B 12 
3D5C 13 
3D5D OC 
3D5E C3 


CC 1B 


3D61 

3D62 

3D63 

3D66 

3D68 

3D6B 

3D6C 

3D6D 

3D6E 

3D71 

3D73 

3D75 

3D76 

3D77 

3D78 

3D79 

3D7C 

3D7D 

3D7P 

3D81 

3D83 

3D85 

3D86 

3D88 

3D89 

3D8A 

3D8B 

3D8E 

3D8P 

3D90 

3D91 

3D92 

3D93 

3D94 

3D95 

3D97 

3D99 

3D9B 

3D9D 

3D9E 

3D9P 

3DA1 

3DA2 

3DA5 

3DA8 

3DAA 

3DAC 

3DAD 

3DAP 

3DB1 

3DB4 

3DB5 

3DB6 

3DB8 

3DBB 

3DBC 

3DBD 


CP 

28 

CD C2 3F 

PE 03 

D2 4A IE 

F5 

CP 

2C 

CD C4 3P 

PE 08 

30 F3 

3C 

P5 

CP 

2C 

CD IC 2B 
B7 

28 3F 
PE IE 
30 E5 
CB 27 
5F 

16 00 
CP 
2C 
E5 

21 CP 3D 

19 

5E 

23 

56 

El 

CI 

05 

28 06 
CB 3A 
CB 1B 
10 PA 
PI 
F5 

CB 27 
3C 

CD 2A 3E 
CD IC 2B 
PE 11 
30 BC 
D5 

IE 38 
3E 07 
CD 32 3E 
Dl 
PI 

C6 08 
CD 32 3E 
CP 

29 
C9 


POP 

LD 

LD 

LD 

JR 

INC 

DJNZ 

POP 

RET 


BC 

A, (43H) 
C,A 
A, (HL) 

Z, 3D0B 
HL 
3CP7 
HL 


SHAPE 

DEC 

JR 

LINIE LINKS 

D 

3D15 

SHAPE 

LINIE UNTEN ODE 

SRA 

A 

JR 

C,3D54 

INC 

E 

JR 

3D15 

SHAPE 

LINIE OBEN 

DEC 

E 

JR 

3D15 

NACHHOLROUTINE (392A) 

INC 

C 

INC 

HL 

EX 

DE, HL 

INC 

HL 

LD 

(de),a 

INC 

DE 

INC 

C 

JP 

1BCC 

PLAY-ANWEISUNG 

RST 

08 

CALL 

3FC2 

CP 

03 

JP 

NC,1E4A 

PUSH 

AP 

RST 

08 

CALL 

3PC4 

CP 

08 

JR 

NC.3D68 

INC 

A 

PUSH 

AP 

RST 

08 

CALL 

2B1C 

OR 

A 

JR 

Z,3DBE 

CP 

IE 

JR 

NC,3D68 

SLA 

A 

LD 

E,A 

LD 

D,00 

RST 

08 

PUSH 

HL 

LD 

HL,3DCF 

ADD 

HL.DE 
^(KL) 

LD 

INC 

LD 

D,(HL) 

POP 

HL 

POP 

BC 

DEC 

B 

JR 

Z,3D9D 

SRL 

D 

RR 

E 

DJNZ 

3D97 

POP 

AP 

PUSH 

AP 

SLA 

A 

INC 

A 

CALL 

3E2A 

CALL 

2B1C 

CP 

11 

JR 

NC.3D68 

PUSH 

DE 

LD 

E,38 

LD 

A,07 

CALL 

3E32 

POP 

DE 

POP 

AP 

ADD 

08 

CALL 

3E32 

RST 

RET 

08 


BC ZURUECK 
SCALEPAKTOR NACH A 
UND C 

ZEICHEN LADEN 
JA 2.LINIE BEHANDELN 
SONST, NAECHSTES SHAPEBYTE 
BIS SHAPETABLEENDE ERREICHT 
POINTER ZURUECK FERTIG 


;D=D-1 (X-WERT) 


OBEN ? 

JA —> 

UNTEN E=E+1 (Y-WERT) 
—> 


;E=E-1 (Y-WERT) 


ZEICHENZAEHLER INC. 
ZWISCHENCODEZEIGER INC. 

ZEIGER VERTAUSCHEN 
BUPPERZEIGER INC. 

TOKEN ODER ZEICHEN ABSPEICHERN 
ZWISCHENCODEZEIGER INC. 
ZEICHENZAEHLER INC. 

— > 


( 


; SYNTAX CHECK 

HOLT KANAL - 1 

= 0 , 1,2 ? 

NEIN, FC-ERROR 
KANAL RETTEN 
SYNTAX CHECK 

HOLT OKTAVE - 1 
= 0 BIS 7 ? 

NEIN, PC-ERROR 
0 BIS 7 WIRD ZU 1-8 
OKTAVE RETTEN 
SYNTAX CHECK 

HOLT NOTE 
= 0 ? 

JA — > 

= 1 BIS 29 ? 

NEIN, PC-ERROR 

NOTE MAL 2 ALS TABELLENZEIGER 
NACH E 

HIGHZEIGER = 0 
SYNTAX CHECK 

POINTER RETTEN’ 

NOTENTAEELLENANFANG 
HL ZEIGT AUF NOTENWERTE 
ZAEHLER FUER NOTE LOW 
NAECHSTER WERT 
ZAEHLER FUER NOTE HIGH 
POINTER ZURUECK 
OKTAVE IN B 
-1 

WENN 0 ERREICHT —> 

SONST DE = DE/2 

(FAKTOR 2 ZWISCHEN ZWEI OKTAVEN) 

WEITER BIS OKTAVEN ZAEHLER = 0 
KANAL NACH A 
UND WIEDER RETTEN 
AUS KANAL 0,1,2 WERDEN AKKU¬ 
WERTE 1,3,5 ZUR ANSPRACHE DER PSG REGISTER 
SOUND A,D ; SOUND A-1,E (EINSCHREIBEN DER TONFREQUENZ) 

LAUTSTAERKE NACH A 
> 16 ? 

JA, FC-ERROR 
LAUTSTAERKE RETTEN 

(00111000) KEIN RAUSCHEN AUF DEN KANAELEN A-C 

UND TON AN A-C 

SETZEN SOUND A,E 

LAUTSTAERKE ZURUECK NACH E 

KANAL NACH A 

0,1,2 WIRD ZU 8,9,10 

SOUND A,E (AN DEN KANAL DIE LAUTSTAERKE AUSGEBEN ( AUCH HUELLKURVE)) 
SYNTAX CHECK 

) 
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3DBE 

CF 




RST 


08 


;SYNTAX CHECK 





3DBF 

2C 













3DCO 

CD 

IC 

2B 


CALL 


2B1C 


;LAUTSTAERKE NACH A 





3DC3 

FE 

11 



CP 


11 


; > 16 ? 





3DC5 

D2 

4A 

IE 


JP 


NC,1E4A 


;JA, FC-ERROR 





3DC8 

Fl 




POP 


AF 


;OKTAVE ZURUECK UND 

VERGESSEN 

3DC9 

Fl 




POP 


AF 


;KANAL ZURUECK 





5DCA 

IE 

00 



LD 


E,00 


:LAUTSTAERKE NULL 





3DCC 

C3 

B6 

3D 


JP 


3DB6 


;AN DEN KANAL AUSGEBEN 









NOTENTABELLE C-DUR 

(EACA) 





3DCF 

00 

00 



DUMMY 








3DD1 

5D 

OD 

E7 

OB 

9B OA 

02 

OA EB 08 

F2 

07 14 07 CD 

E 

F 

G 

A 






HALBTOENE 







3DDE 

9C 

OC 

3C 

OB 

73 09 

6B 

08 80 07 

5D 

OD 5D OD 5D OD C* D* 

F* 

G* 

A* 

C 





/ 

NOTENTABELLE C-DUR 

[NCW) 





3DEE 

4A 

09 












3DF1 

90 

10 

CO 

OE 

24 OD 

68 OC OC OB 

D8 

09 C8 08 CD 

E 

F 

G 

A 






HALTOENE 







3DFP 

AO 

OF 

EB 

OD 

B4 OB 70 

OA 4A 09 48 

08 C* D* 

F* 

G* 

A* 

C 

3EOB 

F6 

B7 

C9 






;SCHROTT 










QUATSCH 








3E0E 

CB 

7A 



BIT 


7 ,D 


BIT7 = 1 





3E10 

28 

13 



JR 


Z.3E25 


NEIN —> 





3E12 

CD 

EF 

OA 


CALL 


OAEF 


;TYPCODE = SINGLE 





3E15 

7A 




LD 


A,D 


;MSB 





3E16 

93 




LD 


D,E 


;LSB 





3E17 

IE 

00 



LD 


E,00 


;=0 





3E19 

B7 




OR 


A 


;CARRY LOESCHEN 





3E1A 

1F 




RRA 




;-DE= DE/2- 





3E1B 

CB 

1A 



RR 


D 






3E1D 

CB 

1B 



RR 


E 







3E1F 

06 

91 



LD 


B.91 


;EXP 





3E21 

CD 

69 

09 


CALL 


0969 


; ZAHL UMWANDELN 





3E24 

C9 




RET 









3E25 

EB 




EX 


DE ,tLL 







3E26 

CD 

9A 

OA 


CALL 


0A9A 


;SINGLE AUF STACK RETTEN 



3E29 

C9 




RET 










UP PSGOUT (A,B) 

S0UNDA,D ; SOUNDA-1,E 
I:A=REGISTER PSG ; DE=AUSGABEWERTE 
0:PSG REGISTER BELEGEN 


3E2A 

47 



LD 

B,A 

HIGHREGISTER PSG NACH B 

3E2B 

D3 

F8 


OUT 

F8 

REGISTERA PSG ANSPRECHEN 

3E2D 

VA 



LD 

A.D 

F9 

HIGHWERT LADEN UND 

3E2E 

D3 

F9 


OUT 

AUSGEBEN 

3E30 

09 



DEC 

B 

LOWREGISTER PSG 

3E31 

78 



LD 

A.B 

F8 

NACH A 

3E32 

D3 

F8 


OUT 

REGISTER ANSPRECHEN 

3E34 

YB 



LD 

A,E 

LOWWERT LADEN UND 

3E35 

D3 

F9 


OUT 

F9 

AUSGEBEN 

3E37 

C9 



RET 







** PAINT 

(ß NCW) 


3E38 

AF 



XOR 

A 

ZAEHLER FUER DIE ANZAHL DER ARGUMENTE AUF 0 

3E39 

2B 



DEC 

HL 

POINTER RICHTEN 

3E3A 

3C 



INC 

A 

ZAEHLER + 1 

3E3B 

08 



EX 

AF,AF' 

UND RETTEN 

3E3C 

D7 



RST 

10 

NAECHSTES 

3E5D 

CD 

IC 

2B 

CALL 

2B1C 

ARGUMENT HOLEN 

3E40 

F5 



PUSH 

AF 

UND AUF STACK LEGEN 

3E41 

2B 



DEC 

HL 

POINTER RICHTEN 

3E42 

D7 



RST 

10 

LETZTES ARGUMENT ERREICHT ? 

3E43 

28 

OC 


JR 

Z.3E51 

JA —> 

3E45 

FE 

2C 


CP 

2C 

KOMMA ? 

3E47 

20 

05 


JR 

NZ.3E4E 

NEIN —> SN-ERROR 

3E49 

08 



EX 

AF,AF' 

ZAEHLER ZURUECK 

3E4A 

FE 

05 


CP 

05 

> 4 

3E4C 

38 

EC 


JR 

C.3E3A 

NEIN —> 

3E4E 

C3 

97 

19 

JP 

1997 

SONST SN-ERROR 





PAINT 

WERTE VOM STACK 

HOLEN 

3E51 

08 



EX 

AF,AF' 

ANZAHL DER WERTE NACH A 

3E52 

FE 

03 


CP 

03 

< 3 ? 

3E54 

38 

F8 


JR 

C.3E4E 

JA, SN-ERROR 

3E56, 

3D 



DEC 

A 

WERTE - 2 

3E57 

3D 



DEC 

A 

(X UND Y KOORDINATE) 

3E58 

32 

ID 

43 

LD 

(431D).A 

DE,4318 

RETTEN (ANZAHL DER BEGRENZUNGEN) 

3E5B 

11 

18 

43 

LD 

ZEIGER AUF PAINTTABELLE 

3E5E 

47 



LD 

B,A 

ZAEHLER NACH B 

3E5F 

83 



ADD 

E 

+ E ERGIBT ADRESSE, IN DER 

3E60 

5F 



LD 

E,A 

DIE BEGRENZUNGSFARBEN ABGESPEICHERT WERDEN 

3E61 

Fl 



POP 

AF 

BEGRENZUNGSFARBE 

3E62 

3D 



DEC 

A 

- 1 (FUER RICHTIGEN FARBCODE) 

3E63 

FE 

04 


CP 

04 

> 3 ? 

3E65 

3E68 

D2 

12 

4A 

IE 

JP 

LD 

NC,1E4A 
(DE),A 

JA, FC-ERROR 

BEGRENZUNGSFARBE ABSPEICHERN 

3E69 

1B 



DEC 

DE 

NAECHSTE ADRESSE 

3E6Ä 

10 

F5 


DJNZ 

3E61 

WEITER SOLANGE NOCH BEGRENZUNGEN AUF DEM STACK LIEGEN 

3E6C 

Fl 


POP 

AF 

Y-WERT HOLEN 

3E6D 

FE 

66 


CP 

66 

> 103 ? (Y-AUFLOESUNG) 

3E6F 

30 

F4 


JR 

NC,3E65 

JA, FC-ERROR 

3E71 

57 



LD 

D,A 

NACH D 

3E72 

Fl 



POP 

AF 

X-WERT HOLEN 

3E73 

FE 

AO 


CP 

AO 

> 159 ? (X-AUFLOESUNG) 

3E75 

30 

EE 


JR 

NC,3E65 

JA, FC-ERROR 
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w 




-ED- 

—ETK 

,NACH E 





PAINT 

ENDINITIALISIERUNG 

3E78 

E5 



PUSH 

HL 

PCINTER RETTEN 

3E79 

21 

PP 

PP 

LD 

HL.FFFF 

ENDE MARKIERUNG 

3E7C 

E5 



PUSH 

HL 

AUF STACK 

3E7D 

EB 



EX 

DE, HL 

HL= Y-X 





PAINT 

HAUPTSCHLEIFE 


3E7E 

22 

IE 

43 

LD 

(431E),HL 

X,Y KOORDINATEN RETTEN 

3ER1 

CD 

04 

3F 

CALL 

3F04 

PUNKT TESTEN UND GGP SETZEN 

3E84 

28 

06 


JR 

Z.3E8C 

BEGRENZUNG ERREICHT —> 

3E86 

2D 



DEC 

L 

X= X-1 

3E87 

3E 

PP 


LD 

A,FF 

LINKE BILDSCHIRMGRENZE 

3E89 

BD 



CP 

L 

ERREICHT ? 

3E8A 

20 

F5 


JR 

NZ,3E81 

NEIN WEITERMACHEN 

3E8C 

2C 



INC 

L 

SONST X = 0 

3E8D 

7D 



LD 

A,L 

NACH A UND ALS X-BEGRENZUNG 

3E8E 

32 

20 

43 

LD 

(4320).A 

LINKS ABSPEICHERN 

3E91 

2A 

IE 

43 

LD 

HL,(43^E) 

X,Y WERTE LADEN 

3E94 

2C 



INC 

L 

X = X+1 

3E95 

3E 

AO 


LD 

A,AO 

BEGRENZUNG RECHTER BILDSCHIRMRAND (160) 

3E97 

BD 



CP 

L 

ERREICHT ? 

3E98 

28 

05 


JR 

Z,3E9F 

JA —> 

3E9A 

CD 

04 

3F 

CALL 

3F04 

PUNKT TESTEN UND GGP SETZEN 

3EQD 

20 

F5 


JR 

NZ,3E94 

BEGRENZUNG NOCH NICHT ERREICHT —> 

3E9F 

2D 



DEC 

L 

X = X-1 (justieren) 

3EÄO 

7D 



LD 

A,L 

NACH A UND ALS BEGRENZUNG 

3EA1 

32 

21 

43 

LD 

(4321 ),A 

RECHTS ABSPEICHERN 

3EA4 

3A 

1F 

43 

LD 

A,(431P) 

Y AUSGANGSWERT HOLEN 

3EA7 

A7 



AND 

A 

=0 ? 

3EA8 

28 

OC 


JR 

Z,3EB6 

JA, —> 

3EAA 

3D 



DEC 

A 

Y = Y-1 

3EAB 

67 



LD 

H,A 

NACH H 

3EAC 

CD 

C3 

3E 

CALL 

3EC3 

OBERHALB NEUE WERTE SUCHEN UND AUF STACK LEGEN 

3EAP 

3A 

1F 

43 

LD 

A,(431F) 

Y AUSGANGSWERT 

3EB2 

FE 

65 


CP 

65 

=101 (LETZTE BILDSCHIRMZEILE) 

3EB4 

28 

05 


JR 

Z,3EBB 

JA —> 

3EB6 

3C 



INC 

A 

Y = Y+1 

3EB7 

67 



LD 

H,A 

NACH H 

3EB8 

CD 

C3 

3E 

CALL 

3EC3 

UNTERHALB NEUE WERTE SUCHEN UND AUF STACK LEGEN 

3EBB 

3E 

■pp 


LD 

A,PF 

MARKIERUNG LADEN 

3EBD 

El 



POP 

HL 

NAECHSTER AUSGANGSWERT (X,Y) 

3EBE 

BC 



CP 

H 

= ENDE MARKIERUNG 

3EBF 

20 

BD 


JR 

NZ,3E7E 

NEIN, WEITERMACHEN 

3EC1 

El 



POP 

HL 

POINTER ZURUECK 

3EC2 

C9 



RET 


PAINT FERTIG 





SUCHT 

NEUE X.Y WERTE UND LEGT SIE AUF DEN STACK 

3EC3 

OE 

PP 


LD 

C.PP 

STACKBELEGUNG MOEGLICH 

3EC5 

3A 

20 

43 

LD 

o 

C\J 

K'N 

*< 

X-BEGRENZUNG LINKS 

3EC8 

6F 



LD 

L, A 

NACH L 

3EC9 

3A 

21 

43 

LD 

A,(4321) 

X-BEGRENZUNG RECHTS 

3ECC 

95 



SUB 

L 

DAVON ABZIEHEN 

3ECD 

47 



LD 

B, A 

ALS ZAEHLER 

3ECE 

04 



INC 

B 

KEINE FREIEN STELLEN ? 

3ECF 

C8 



RET 

Z 

JA, KEINE WERTE AUF STACK LEGEN 

3EDO 

C5 



PUSH 

BC 

BC RETTEN 

3ED1 

E5 



PUSH 

HL 

HL RETTEN 

3ED2 

CD 

PI 

3E 

CALL 

3EF1 

PUNKT TESTEN UND MIT BEGRENZUNGEN VERGLEICHEN 

3ED5 

El 



POP 

HL 

HL ZURUECK 

3ED6 

CI 



POP 

BC 

BC ZURUECK 

3ED7 

20 

06 


JR 

NZ.3EDP 

KEINE BEGRENZUNG —> 

3ED9 

OE 

PP 


LD 

C,PP 

STACKBELEGUNG MOEGLICH MACHEN 

3EDB 

2C 



INC 

L 

EINEN PUNKT WEITER RECHTS WEITERMACHEN 

3EDC 

10 

F2 


DJNZ 

3ED0 

BIS ALLE PUNKTE BEHANDELT 

3EDE 

C9 



RET 



3EDF 

AF 



XOR 

A 

A LOESCHEN 

3EE0 

B9 



CP 

C 

STACKBELEGUNG VERBOTEN ? 

3EE1 

28 

F8 


JR 

Z,3EDB 

JA — > 

3EE3 

OE 

02 


LD 

C ,02 

IST NOCH PLATZ 

3EE5 

C5 



PUSH 

BC 

AUF DEM STACK ,UM WEITERE 

3EE6 

CD 

63 

19 

CALL 

1963 

WERTE ZU SPEICHERN ? 

3EE9 

CI 



POP 

BC 

BC ZURUECK 

3EEA 

Dl 



POP 

DE 

RUECKSPRUNGADRESSE 

3EEB 

E5 



PUSH 

HL 

NEUEN MERKWERT AUF STACK LEGEN 

3EEC 

D5 



PUSH 

DE 

RUECKSPRUNGADRESSE WIEDER SETZEN 

3EED 

OE 

00 


LD 

C,00 

STACK BELEGUNG VERBIETEN 

3EEF 

18 

EA 


JR 

3EDB 

WEITER —> 





PAINTTEST: TESTET OB PUNKT HL (X.Y) = EINE DER BEGRENZUNGSFARBEN 

3EF1 

CD 

3A 

3F 

CALL 

3F3A 

A =CPOINT(X,Y) 

3EF4 

E5 



PUSH 

HL 

HL RETTEN 

3EF6 

21 

ID 

43 

LD 

HL.431D 

ANZAHL DER BEGRENZÜNGSFARBEN 

3EF8 

46 



LD 

B,(HL) 

NACH B 

3EF9 

21 

19 

43 

LD 

HL,4319 

A MIT FARBEN 

3EFC 

BE 



CP 

(HL) 

VERGLEICHEN 

3EED 

28 

03 


JR 

Z,3P02 

BEG. GEFUNDEN —> 

3EFF 

23 



INC 

HL 

NAECHSTE FARBE 

3FOO 

10 

PA 


DJNZ 

3EFC 

BIS ALLE UEBERPRUEFT 

3F02 

El 



POP 

HL 

HL ZURUECK 

3F03 

C9 



RET 







TESTET 

UND SETZT GGP. 

PUNKT FUER PAINT 

3F04 

E5 



PUSH 

HL 

HL RETTEN 

3F05 

CD 

PI 

3E 

CALL 

3EF1 

PUNKT TESTEN 

3F08 

F3 



PUSH 

AF 

ZERO PLAG RETTEN 

3F09 

41 



LD 

B,C 

FARBE DES PUNKTES NACH B 

3FCA 

3A 

19 

43 

LD 

A,(4319) 

FARBE NACH A 
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3if’0D 4F 

3F0E C4 BO 3B 

LD 

CALL 

NZ,3BB0 

; UND NACH C, ZUM 
;SETZEN DES PUNKTES 

3F11 Fl 

POP 

AF 

;ZEROFLAG ZURUECK 

3F12 El 

POP 

HL 

;HL ZURUECK 

3F13 C9 

RET 


» 


ANSPRUNG AUS KEYPAD 
(EUER COLOUR COMPILER) 


3F14 16 FE 

LD 

D,FE 

;MASKE FUER KEYPAD 1 

3F16 18 02 

JR 

3F1A 

;—> WEITER 

3F18 16 F7 

LD 

D,F7 

;MASKE FUER KEYPAD 2 

3F1A CD 87 3A 

CALL 

3A87 

;KEYPAD WERT BESTIMMEN 

3F1D 6F 

LD 

L,A 

;NACH HL UEBERTRAGEN 

3F1E 26 00 

LD 

H,00 



3F20 C9 RET 


WEITERE AUSWERTUNG VON FUNCTION TOKEN 


3F21 

FE 

91 

CP 

91 

SOUND? 

3F23 

CA 

F4 36 

JP 

Z.36F4 

JA, INHALT BESTIMMEN 

3F26 

FE 

8A 

CP 

8A 

SCALE? 

3F28 

CA 

OA 37 

JP 

Z,370A 

JA, SCALEFAKTOR BESTIMMEN 

3F2B 

FE 

80 

CP 

80 

COLOUR? 

3F2D 

CA 

61 36 

JP 

Z.3661 

JA, FARBE BESTIMMEN 

3F50 

C3 

05 25 

JP 

2505 

ZURUECK ZUR AUSWERTUNG DER FUNCTION TOKEN 




** VERIFY- 

ANWEISUNG 


3F33 

23 


INC 

HL 

+ 1 

3F34 

C3 

29 2C 

JP 

2C29 

—> 


COPYRIGHT 

3F37 6E LD L,(HL) 

3F38 63 LD H,E 

3E39 77 LD (HL),A 




UP CPOINT 

7aF.BC ,DE,HL) 




HOLT FARBCODE DES PUNKTES HL (X.Y) 



I :L=X ; 

H=Y 




0:A=FARBC0DE DES PUNKTES 

3F3A 7D 


LD 

A,L 

A=X WERT 

3F3B 6C 


LD 

L,H 

L=Y WERT 

3F3C 26 

00 

LD 

H,00 

HL=Y WERT 

3F3E 54 


LD 

D,H 

DE=Y WERT 

3F3F 5D 


LD 

E,L 


3F40 29 


ADD 

HL,HL 

Y*2 

3F41 29 


ADD 

HL,HL 

Y*4 

3F42 19 


ADD 

HL,DE 

Y*5 

3F43 29 


ADD 

HL,HL 

Y*10 

3F44 29 


ADD 

HL,HL 

Y*20 

3F45 29 


ADD 

HL,HL 

Y*40 

3F46 5F 


LD 

E,A 

X-WERT NACH E 

3F47 CB 

3B 

SRL 

E 

X/2 

3F49 CB 

3B 

SRL 

E 

X/4 

3F4B 16 

48 

LD 

D,48 

DE=4800+X/4 

3F4D 19 


ADD 

HL,DE 

HL=SPEICHERADRESSE 

3F4E E6 

03 

AND 

03 

A=POSITION IN DER ADRESSE 

3F50 3C 


INC 

A 

+ 1 

3F51 4F 


LD 

C,A 

NACH C RETTEN 

3F52 47 


LD 

B,A 

NACH B ALS ZAEHLER 

3F53 7E 


LD 

A,(HL) 

SPEICHERSTELLE LADEN 

3F54 07 


RLCA 


POSITION IM BYTE 

3F55 07 


RLCA 


ERZEUGEN 

3F56 10 

FC 

DJNZ 

3F54 


3F58 E6 

03 

AND 

03 

UND FARBCODE AUSBLENDEN 

3F5A C9 


RET 





** CPOINT 



3F5B 00 


NOP 



3F5C CF 


RST 

08 

SYNTAX CHECK 

3F5D 28 




( 

3F5E CD 

IC 2B 

CALL 

2B1C 

X-WERT HOLEN 

3F61 F5 


PUSH 

AF 

UND RETTEN 

3F62 CF 


RST 

08 

SYNTAX CHECK 

3F63 2C 





3F64 CD 

IC 2B 

CALL 

2B1C 

Y-WERT HOLEN 

3F67 F5 


PUSH 

AF 

UND RETTEN 

3F68 CF 


RST 

08 

SYNTAX CHECK 

3F69 29 




) 

3F6A Dl 


POP 

DE 

D=Y WERT 

3F6B Fl 


POP 

AF 

A=X WERT 

3F6C EB 


EX 

DE, HL 

H=Y WERT 

3F6D D5 


PUSH 

DE 

POINTER RETTEN 

3F6E 6F 


LD 

L,A 

L=X WERT 

3F6F CD 

3A 3F 

CALL 

3F3A 

CPOINT BESTIMMEN 

3F72 6F 


LD 

L,A 

HL=FARBCODE 

3F73 26 

OC 

LD 

H,00 


3F75 CD 

9A OA 

CALL 

0A9A 

INS X-REGISTER UEBERTRAGEN 

3F78 El 


POP 

HL 

•POINTER ZURUECK 

3F79 C9 


RET 




PRUEFT AUF FUNCTION TOKEN 

3F7A CA FE 27 JP Z.27FE ;USR TOKEN —> 

3F7D FE FF CP FF ;COLOUR TOKEN 

3F7F C2 04 25 JP NZ,2504 ;NEIN, ZURUECK 

3F82 D7 RST 10 ;TOKEN LADEN 

3F83 23 INC HL ;P0INTER+1 

3F84 FE 82 CP 82 ;KEYPAD? 

3F86 CA OF 3A JP Z,3A0F ;JA —> 

3F89 FE 8F CP 8F ;CPOINT? 

3F8B 28 CF JR Z,3F5C ;JA —> 
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'j m in — rrrr r -rm-rr?---. IM. 'J- 



■UM 

"83 


TTP- 

-83 

; J Oi V 

3F8F 

CA 

1F 

3A 

JP 

Z.3A1F 

; JA —> 

3F92 

C3 

21 

3F 

JP 

3F21 

;WEITERE TOKEN 




*-* 

SOUND 

-ANWEISUNG 


3F95 

CD 

IC 

2B 

CALL 

2B1C 

;ANGESPROCHENES REGISTER HOLEN 

3F C *8 

FP 

10 


CP 

10 

;GROESSER 15? 

3FOA 

DP 

4A 

IE 

JP 

NC,1E4A 

;JA, FC-ERROR 

3F9D 

F5 



PUSH 

AF 

;SOUND REGISTER RETTEN 

3F9E 

CF 



RST 

08 

;SYNTAX CHECK 

3F9P 

2C 





1 

3FAO 

CD 

IC 

2B 

CALL 

2B1C 

;WERT HOLEN 

3FA3 

5F 



LD 

E,A 

;NACH E 

3FA4 

Fl 



POP 

AF 

;REGISTER ZURUECK 

3FA5 

C3 

32 

3E 

JP 

3E32 

;SOUND A , E 


** CHAR-ANWEISUNG 


3FA8 

CD 

C2 

3F 

CALL 

3FC2 

3FAB 

FE 

04 


CP 

04 

3FAD 

D2 

4A 

IE 

JP 

NC,1E4A 

3FB0 

E6 

03 


AND 

03 

3FB2 

07 



RLCA 


3EB3 

07 



RLCA 


3FB4 

07 



RLCA 


3FB5 

47 



LD 

B,A 

A,(431C) 

3FB6 

3A 

IC 

43 

LD 

3FB9 

E6 

E7 


AND 

E7 

3FBB 

BO 



OR 

B 

3FBC 

D3 

FF 


OUT 

FF 

3FBE 

32 

IC 

43 

LD 

(431C),A 

3FC1 

C9 



RET 



WERT -1 HOLEN 
GROESSER 3? 

JA, PC-ERROR 

BIT 0 + 1 AUSBLENDEN 

3* ROTIEREN 

BIT 0 WIRD ZU BIT 3 

BIT 1 WIRD ZU BIT 4 

ALS MASKE NACH B 

PORT FF LADEN 

BIT 3+4 LOESCHEN UND 

GEMAESS CHAR SETZEN 

AUSGEEEN AUF PORT FF 

UND PORTBELEGUNG RETTEN 


HOLT AUSDRUECKE-1 


3FC2 

2B 



DEC 

HL 

POINTER SETZEN 

3FC3 

D7 



RST 

10 

ZEICHEN LADEN 

3FC4 

CD 

IC 

2B 

CALL 

2B1C 

AUSDRUCK AUSWERTEN 

3FC7 

3D 



DEC 

A 

WENIGER 1 

3FC8 

C9 



RET 







CURSOR- 

-DISPLAY 


3FC9 

CD 

7A 

30 

CALL 

307A 

CURSOR-DISPLAY 

3FCC 

23 



INC 

HL 

"f 1 

3FCD 

CD 

7A 

30 

CALL 

307A 

CURSOR-DISPLAY 

3FD0 

2B 



DEC 

HL 

-1 

3FD1 

C9 



RET 







ANSPRUNG AUS GENTXT 


3FD2 

FE 

22 


CP 

22 

= " 9 

3FD4 

C2 

89 

2B 

JP 

NZ,2B89 

NEIN, KEIN TOKEN 

3FD7 

03 



INC 

BC 

BUFFERZEIGER+1 

3FD8 

15 



DEC 

D 

MAXZEICHEN DEC., BUFFER VOLL? 

3FD9 

C8 



RET 

Z 

JA, FERTIG 

5FBA 

7E 



LD 

A,(HL) 

CODEBYTE LADEN 

3FDB 

FE 

22 


CP 

22 

= " 9 

3FDD 

23 



INC 

HL 

CODEZEIGER INC. 

3FDE 

02 



LD 

(BC),A 

IN BUFFER UEBERTAGEN 

3FDF 

CA 

89 

2B 

JP 

Z,2B89 

JA —> 

3FE2 

18 

F3 


JR 

3FD7 

SONST WEITER 





** BGRD-ANWEISUNG 


3FE4 

2B 



DEC 

HL 

POINTER-1 

3FE5 

D7 



RST 

10 

ZEICHEN LADEN 

3FE6 

06 

04 


LD 

B,04 

BGRD-CODE VORBESETZEN 

7FE8 

CA 

BD 

38 

JP 

Z,38BD 

NUR BGRD —> 

3FEB 

CD 

C2 

3F 

CALL 

3FC2 

AUSDRUCK-1 HOLEN 

3 FEE 

FE 

04 


CP 

04 

GROESSER 3? 

3FF0 

D2 

4A 

IE 

JP 

NC.1E4A 

JA, FC-ERROR 

3FF3 

E6 

03 


AND 

03 

BITS AUSBLENDEN 

3FF5 

OF 



RRCA 


BIT 0 WIRD BIT 6 

3FF6 

OF 



RRCA 


BIT 1 WIRD BIT 7 

3FF7 

47 



LD 

B,A 

ALS MASKE NACH B 

3FF8 

3A 

IC 

43 

LD 

A,(431C) 

PORT FF LADEN 

3FFB 

E6 

3F 


AND 

3P 

BITS AUSBLENDEN 

3FFD 

C3 

C2 

CO 

K'n 

JP 

38C2 

— > 
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ITTTTnrnFTTTIinF- 


* RAM-ADRESSEN * 
**************** 


RESTART—VEKTOREN 


4015 01 

4016 E3 03 
4018 00 
4019 07 40 
401B 20 49 


401D 07 
401E E4 30 
4020 00 44 
4022 01 

4023 01 

4024 03 


4025 06 


403E 

4041 

4042 

4043 

4044 

4045 

4046 

4047 


4080 D6 00 

4082 6F 

4083 7C 

4084 DE 00 

4086 67 

4087 78 

4088 DE 00 
408A 47 
408B 3E 00 
408D C9 


408E 4A IE 
4090 40 E6 4D 


4093 DB 00 
4095 C9 


4096 D3 00 
4098 C9 


4000 

C3 

96 

IC 

JP 

1C96 

;RST 

08-VEKTOR 

4003 

C3 

78 

ID 

JP 

1D78 

;RST 

10-VEKTOR 

4006 

C3 

90 

IC 

JP 

1C90 

;RST 

18-VEKTOR 

4009 

C3 

D9 

25 

JP 

25D9 

;RST 

20-VEKT0R 

400C 

C9 



RET 


;RST 

28-VEKTOR 

400D 

00 



NOP 




400E 00 



NOP 




400F 

C9 



RET 


;RST 

30-VEKT0R 

4010 

00 



NOP 



4011 

00 



NOP 




4012 

FB 



EI 


;RST 

38-VEKTOR 

4013 

C9 



RET 



4014 

00 



NOP 





DCB'S 

KEYBOARD-DCB 


DCB-TYP 

TREIBERADRESSE 

MERKADRESSE FUER CTRL- UND MODSEL-TASTE 
CURSOREND- UND STARTRASTER (CRTC REG. 11 UND 10) 
I 


DISPLAY-DCB 


DCB-TYP 

TREIBERADRESSE 

CURSORADRESSE 

CURSORZEICHEN 

AKTUELLE FARBE IM LGR MODE (-1) 

LETZTES GEDRUECKTE ZEICHEN FUER REPEAT-TASTE 


PRINTER-DCB 


DCB-TYP 


4026 E7 04 


;TREIBERADRESSE 

4028 45 


;ZEILEN/SEITE 

4029 00 


;ZEILENZAEHLER 

402A 00 


;UNBENUTZT 

402B 50 52 


PR 

402D C3 00 50 

JP 5000 

;N. V. (UNTER DISK-BASIC JP 6000, 

4030 C7 

RST 00 


4031 00 

NOP 


4032 00 

NOP 



WIRD VON CALL BEI 

FALSCHEM BIT IN DCB-TYP ANGESPRUNGEN 

4033 3E 00 

LD A,00 

;A = 0 

4035 C9 

RET 



TASTATURSTATUS 


4036 

FUER TASTATURZEILE 

F801 

4037 

II II 

F802 

4038 

II II 

F804 

4039 

II II 

F808 

403A 

II II 

F810 

403B 

II II 

F820 

403C 

II II 

F840 

403D 

II II 

F880 


DOS-RAM 

IM LEVEL 2 BASIC FREI 
VERWENDUNG NICHT BEKANNT 
UHRZEIT: SEKUNDEN 
MINUTEN 
STUNDEN 
DATUM: TAGE 

MONATE 

JAHRE 

VERWENDUNG NICHT BEKANNT 


UP FUER DIVISION 


SUB 

LD 

LD 

SBC 

LD 

LD 

SBC 

LD 

LD 

RET 


00 

L,A 

A,H 

00 

H,A 

A, B 
00 

B, A 
A,00 


;SUBTRAKTION: Z2 - ZI NACH Z2 
J(LSB) 


;MSB Z2 LADEN 


SYSTEM-DATEN 

;USR-STARTADRESSE (=FC-ERROR) 
;MULTIPLIKATOR FUER RND 


UP FUER INP 
IN A,(00) 
RET 


;EINGABEPORT NACH A LADEN 


UP FUER OUT 
OUT (00),A 

RET 


;AKKU AUF PORT AUSGEBEN 
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4099 00 
409A 00 
409B 00 
409C 00 
409D 28 
409E IE 
409P 00 
40AO 4C 43 
40A2 EE FF 
4QA4 01 58 


40A7 FO 41 
40A9 
40AA 
40AD 


40 AE' 
40 AF 
40B0 


40B1 


SYSTEM-DATEN 
; IMEYS-ZWISCHEHSPEICHER 
;LETZTER FEHLERCODE FÜER ERR 
;DRUCKKOPFPOSITION 

;AUSGABE-FLAG (ONDISPLAY, 1=PRINTER, 80=CASSETTE) 

;ZEILENLAENGE AUF BILDSCHIRM 
;LETZTE TABPOSITION AUF BILDSCHIRM 
;N. V. 

;ANFANG DER STRINGSPACE 
; AKTUELLE ZEILENNUMMFR 
; PROGRAMMTEXTANFANG 

;CURSORPOSITION IN DER BILDSCHIRMZEILE 
;I/O-BUFFERANFANG 

;FLAG FJER INPUT, WENN 0 CASSETTE, SONST KEYBOARD ODER DATA 
;LETZTE ZUFALLSZAHL (FESTKOMMA 24-BIT) 

;N. V. 

;DIM-FLAG (0 KEIN DIM, SONST DIM) 

;TYPX: TYPCODE DES INHALTES DES X-REGISTERS 

;FLAG FJER ZWISCHENCODEERZEUGUNG (NACH DATA 4E, SONST 0) 

;OPERATORCODE BEI AUSFJEHRUNG DER GRUNDRECHENARTEN 

;LETZTER SPEICHERPLATZ DER FUER BASIC ZUR VERFUEGUNG STEHT (ANFANG SHAPETABLE-1) 


40B3 

40B5 

40D3 

40D6 

40D8 


40DA 

40DC 

/10DD 

40DE 

40DF 


40E1 

40E2 

40E4 

4GE6 

40E8 

40EA 

40EC 

40EE 

4CF0 

40F2 

40F3 

40F5 

40F7 


40F9 
40FB 
40 FD 
40FF 


ZWISCHENSPEICHER FUER STRINGS 

;ADRESSE DES NAECHSTEN FREIEN ZWISCHENSPEICHERPLATZES 
;11 ZWISCEEHSPEICHERPLAETZE FUER STRINGS 
;(LAENGE, ADRESSE (MSB, LSB)) 

;VORLAUEFIGER ZWISCHENSPEICHER, ZUM EINTRAG VOR EINTRAG IN DEN ZWISCHENSPEICHER 
;STRINGSPACEZEIGER, ZEIGT AUF LETZTES FREIE BYTE DER STRINGSPACE 
;OPERATORPOINTER IN AUSDRUCKSAUSWERTUNG 

;ARRAYTABZEIGFP IN FELDVERARBEITUNG UND BEIM PACKEN DER STRINGSPACE 
;DATAZEILENNUMMER 

;FLAG ZUR SPERRUNG DER FELDVARIABLEN (LAUFVARIABLEN (!)), 0 FELDER FREIGEGEBEN 

;FLAG, IST DIESES FLAG BEI RESUME ODER RETURN IM DIREKTMODE <> 0, WIRD ZUR HAUPTSCHLEIFE GESPR. 

;DATA-FLAG FJER INPUT, <> 0 WENN READ, SONST 0 

;LETZTES ZEICHEN IF USING 

;POINTER IN HEXT 

:SYSTEM-FILE-ENTRY POINT 

•VARTABADRESSE IN LET 

;AUTO-FLAG, WENN 0 KEIN AUTO 

;AUTO-ZEILENNUMMER 

;AUTO-INCREMENT 

;AKTUELLER POINTER: ZEIGER AUF ANWEISUNG DIE GERADE VERARBEITET WIRD 
;ANFANGSWERT DES 'NORMALEN' RUECKSPRUNGADRESSEN STACK 
; FEHLER-ZEILENNUMMER: ZEILE IN DER DER LETZTE FEHLER AUFTRAT 
'-ZEILENNUMMER: ZEILENNUMMER FJER '.'-OPTION 
;FEHLER-POINTER: ZEIGER AUF ANWEISUNG, BEI DEREN AUSFUEHRUNG DER LETZTE FEHLER AUFTRAT 
;TRAP-POINTER: ZEIGER AUF ANFANG DER ERRORTRAP-ROUTINE, WENN KEIN ERRORTRAP VORGESEHEN = 0 
; TRAP-FLAG: WIRD BEJ AUFTRETEN EINES TRAPS GESETZT (FF) UND DURCH RESUME ZURUECKGESETZT 
; POINTER IF AUSDRUCKSANALYSE UND ARRAYVERWALTUNG 

;CONT-ZEILENNUMMER: ZEILENNUMMER DER ZEILE IN DER LETZTE PROGRAMMUNTERBRECHUNG STATTFAND 
;CONT-POINTER: ZEIGER AUF ANWEISUNG EEI DEREN AUSFUEHRUNG DER LETZTE FEHLER AUFTRAT, ODER VOR 
;DERER AUSFUEHRUNG DIE BREAK-TASTE GEDRUECKT WURDE 

;= 0, WENN KEINE UNTERBRECHUNG AUFGETRETEN ODER FORTFUEHRUNG DER AUSFUEHRUNG UNMOEGLICH 
;ANFANG DER VARIAELENTABELLE 
;ANFANG DFR ARRAYTABELLE 

; ANFANG DES FREIEN SPEICHERS (EIN BYTE NACH ARRAYTABELLENENDE) 

;DATAZEIGER: ZEIGT AUF TRENNZEICHEN NACH DEN ZULETZT GELESENEN DATEN 


4101 


411B 


TYPCODETABELLE 

;ENTHAELT IN ALPHABETISCHER REIHENFOLGE FUER JEDEN BUCHSTABEN EINEN TYPCODE, DER DEN TYP EINER 
;VARIABLEN MIT DEM ENTSPRECHENDEN EUCKSTAEEN ALS ERSTEM ZEICHEN DES VARIABLENNAMEN 
;ANGIBT, WENN DER VARIABLENNAME KEINE EXPLIZITE TYPANGABE BEINHALTET. 

;TRACE-FLAG, 0 = TROFF. AF=TRON 


41 IC 


REGISTER FUER ARITHMETHIK 

;ZUSAETZLICHES NIEDERWERTIGSTES BYTE FUER RECHTSSCHIEBEN (NUR BEI DOU BLE ) 


X-REGISTER 


;ZUR ABSPEICHERUNG VON WERTEN ALLER 4 TYPEN, WIE FOLGT: 



;INTEGER STRING 

SINGLE 

DOUBLE 

41 ID 



LSB 

411E 



LSB 

41 IF 



LSB 

4120 



LSE 

4121 

LSB LSB 

LSB 

LSB 

4122 

MSB MSB 

LSB 

LSE 

4123 


MSB 

MSB 

4124 


EXP 

EX? 


;(BEI STRINGS WIRD NUR DER STRINGZEIGER (AUF VARTAB ODER 


ZWISCHENSPEICHER) ABGESPEICHERT) 


4125 ;ZWISCHENSPEICHER FUER ARITHMETIK, Z.B. FUER SIGN-FLAG 

4126 ;ZUSAETZLICHES NIEDERWERTIGSTES BYTE FJER RECHTSSCHIEBEN (NUR FUER DOUBLE) 


4127 

4128 
4129 
412A 
412B 
412C 
412D 
412E 


Y-PEGISTER 
INTEGER STRING 

SINGLE 

DOUBLE 

LSB 

LSB 

LSB 

LSB 

MSB 

MSB 

LSB 

LSB 



MSB 

EXP 

LSB 

LSE 

LSB 

LSB 

MSB 

EXP 


AUSGAEEBUFFER FUER ZAHLENAUSGABE 

412F ;ZUSAETZLICHES BYTE FJER f' EEI FELDUEBERLAUF 

4130 ;NORMALER ANFANG 


Seite 117 















RQM-Listing für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke und Luideer Röckrath 

VfTK Multiplik ation und dtvtsi oh 


4152 

4152 
4155 
4158 
415B 
415E 
4161 
4164 
4167 
416A 
416D 
4170 
4173 
4176 
4179 
417C 
417E 
4182 
4185 
4188 
418B 
418E 
4191 
4194 
4197 
419A 
419D 
41AO 
41 A3 
41A6 


ZEIGER ZUR ERWEITERUNG DES LEVEL-2-BASICS DURCH DAS DISK-BASIC 

;ZEIGER EUER NEUE DISK-BASIC ANWEISUNGEN UND PUNKTIONEN (WERDEN BEI LEVEL-2-INITIALISIERUNG DURCH 
;JP L3-ERR0R ERSETZT) 

;CVI-FUNKTION 
;PN-PUNKTION 
;CVS-FUNKTION 
;DEP-ANWEISUNG 
;CVD-PUNKTION 
;EOP-FUNKTION 
;LOC-PUNKTION 
;LOF-PUNKTION 
;MKI$-PUNKTION 
;MKS$-PUNKTION 
;MKDS-FUNKTION 
;CMD-ANWEISUNG 
;TIMES-PUNKTION 
;OPEN-ANWEISUNG 
;PIELD-ANWEISUNG 
;GET-ANWEISUNG 
;PUT-ANWEISUNG 
;CLOSE-ANWEISUNG 
;LOAD-ANWEISUNG 
{MERGE-ANWEISUNG 
;NAME-ANWEISUNG 
;KILL-ANWEISUNG 
;&-FUNTKON 
;LSET-ANWEISUNG 
;RSET-ANWEISUNG 
;INSTR-PÜNKTION 
;SAVE-ANWEISUNG 
; LINE-ANWEISUNG 

;ZEIGER ZUR ERWEITERUNG VORHANDENER BEFEHLE DURCH DAS DISK-BASIC (WERDEN BEI DER LEVEL-2- 
;INITIALISIERUNG DURCH RET ERSETZT) 


ALLE FOLGENDEN ADRESSEN GELTEN NUR FUER LEVEL-2-BASIC, UNTER DISK-BASIC AENDERN SIE SICH (!). 
(IN KLAMMERN SIND JEWEILS DIE ADRESSEN DER ZEIGER ANGEGEBEN. DORT KOENNEN DIE ADRESSEN IMMER 
ENTNOMMEN WERDEN) 


41E5 3A 00 2C 
(40A7)-3 
4 IE 8 
(41A7) 

4288 


I/O-BUFFER 

;':',0,',' VOR I/O-BUFFER 

;(TRENNZEICHEN FUER EINGABEN BZW. ANWEISUNGEN) 

;I/O-BUFFERANFANG 

;FUER TASTATUREINGABEN, ZWISCHENCODEERZEUGUNG UND TEXTERZEUGUNG FUER LISTINGS 
;ANFANGSWERT DES STACKS IM SYSTEM-BEFEHL 


42FO-42FF 

4300-430F 

4310-4312 


4313 

4314 01 

4315 

4316 

4317 

4319 
431A 
431B 
431C 
431D 
431E 
431F 

4320 

4321 


;CRTC TABLE (LGR SIEHE 3800) 

;HIGH RESOLUTION CRTC TABLE (SIEHE 3810) 
;AUFZEICHNUNGSRATE CASSETTE 


FCOLOUR CODE 
SCALE-FAKTOR 
X-POSITION FÜR PLOT 
Y-POSITION FÜR PLOT 
SHAPE INFO (0303,0000,0300) 

BEGO ENTSPRICHT FARBE 
BEG1 BEGRENZUNGSFARBE 1 
BEG2 BEGRENZUNGSFARBE 2 
BELEGUNG DES PORT FF 
ANZAHL DER BEGRENZUNGEN 
ZWISCHENSPEICHER X FÜR PAINT XS (NS 
ZWISCHENSPEICHER Y FÜR PAINT YS (NS 
ZWISCHENSPEICHER X-BEGRENZUNG LIMS 
ZWISCHENSPEICHER X-BEGRENZUNG RECHTS 


'-WD /l-Sb/ 1CSD 

/cfßM/ y 


PAINT 


XL 

XR 


4322-434F 

4350 

4357 

435E 

4365 

436C 

4373 

437A 

4381 

4387 


;VERWENDUNG NICHT BEKANNT 

FKEY1-8 TEXT 

;LIST 

;RUN 

; AUTO 

;EDIT 

;RENUM 

;SYSTEM. 

;CLOAD 
;CSAVE " 


4388 

438B 

438C 

438D 

438E 

438F 

4390 

439F 

43A0 

43FF 


4400 

47E7 

47E8-47FF 


{VERWENDUNG NICHT BEKANNT 

{ADRESSE KEYWORDTABLE COLOUR-BASIC-BEFEHLE 
{ADRESSE JUMP-TABLE COLOUR-BASIC-BEFEHLE 
{FARBCODETABELLE 

;DISK-BASIC-RAM 


BILDSCHIRM TEXTMODUS 
;25ZEILEN ZU JE 40 ZEICHEN 
;1000 ZEICHEN 
;24 BYTES FREI 


BILDSCHIRM GRAFIKMODUS 

4800 ;102 ZEILEN ZU JE 160 PUNKTEN (16320 PUNKTE) 

57EF ;4 PUNKTE WERDEN ZU EINEM BYTE DEKODIERT 
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57F-57FF ~ -; 1 d BYTES 'FREI“ 


5800 00 
5801 
(40A4) 


PROGRAMMTEXT / , „ , m . 

NULLBYTE VOR PROGRAMMTEXT (WICHTIG(!)) (ANFANG 4800 OHNE GRAFIK) 

PROGRAMMTEXT: 

BESTEHEND AUS N ZEILEN: , 

ZEILENZEIGER (LSB/MSB)/ZEILENNUMMER (LSB/MSE)/TEXT IM ZWISCHENCODE/O FUER ZEILENENDE 
UND EINEM 0000-ZEILENZEIGER ZUR MARKIERUNG DES PROGRAMMENDES 


(40F9) 


VARIABLENTABELLE 

;BESTEHEND AUS N VARIABLEN UND DEREN WERTEN: 

;TYPCODE/2.BUCHSTABE/1.BUCHSTABE/WERT 

•DER VARIABLENWERT IST FOLGENDERMASSEN ABGESPEICHERT: 

;INTEGER STRING SINGLE DOUBLE 
;LSB LAENGE LSB LSB 

;MSB LSB(ADR)LSB LSB 

; MSB(ADR)MSB LSB 

EXP LSB 

LSB 

• LSB 

• MSB 
EXP 

•(FUNKTIONSNAMEN SIND MIT GESETZTEM BIT T IM 1.BUCHSTABEN ABGESPEICHERT. ALS WERT IST DER POINTER 
•AUF DIE KLAMMER NACH DEM FUNKTIONSNAMEN ABGESPEICHERT) 


(40FB) 


ARRAYTABELLE 

BESTEHEND AUS N ARRAYS MIT FOLGENDEM AUFBAU: , 

TYP/2.BUCHSTABE/1.BUCHSTABE/ANZAHL ALLER FOLGENDEN BYTES (LSB/MSB)/ 

ANZAHL DER DIMENSIONEN/TIEFE JEDER DIMENSION (LSB/MSB, ANGEFANGEN MIT DER LETZTEN)/WERTE 
DIE ADRESSE EINES BESTIMMTEN WERTES EINES ARRAYS ERECHNET SICH WIE FOLGT: 

ARRAY A(V,W,X,Y,Z) 

0 = IZ * TY + IY * TX + IX * TW + IW * TV + IV 

WOBEI I. INDEX UND T. TIEFE DER JEWEILIGEN DIMENSION BEDEUTET. DER SICH ERGEBENDE OFFSET 
(0) WIRD AUF DIE ADRESSE DES ELEMENTES A(0,0,0,0,0) ADDIERT UND MAN ERHAELT DIE ADRESSE DES 
GEWÜENSCHTEN ELEMENTES. 

DIE EIN ZELN EN WERTE SIND GENAUSO WIE IN DER VARIABLENTABELLE ABGESPEICHERT. 


FREIER SPEICHER 

(40FD) DER FOLGENDE SPEICHERRAUM IST BIS ZUM STACK FREI 


(40E8) 


(40AO)-2 00 00 


'NORMALER' STACK FJER RUECKSPRUNGADRESSEN UND DATEN 
STACK FJER FROGEAMMDATEN 

IN DIESEM STACK WEEDEN DIE PARAMETER VON GOSUB S UND FOR-NEXT-SCHLEIFEN ABGESPEICHERT 

GOSUB: 

KENNUNG 91 (= GOSUB-TOKEN) 

ZNR DER AUFRUFENDEN ZEILE (LSB/MSB) , 

POINTER AUF ANWEIHSUNG DIE GOSUB FOLGT (LSB/MSB) 


FOR-NEXT-SCKLEIIE: 

INTEGER SINGLE 

KENNUNG 81 (= FOR-TOKEN) 

LAUFVARIABLENADRESSE IN VARTAB (LSB/MSB) 

INC-FLAG, 1 WENN INCR. >0, FF WENN INCR. < 0 UND 0 WENN INCR. = 0 
TYP-FLAG, FF FUER INTEGER UND 1 FUER SINGLE 
INCREMENT LSB 
LSB 
MSB 
EXP 

INCREMENT LSB ENDWERT LSB 

MSB LSB 

ENDWERT LSB MSE 

MSB EXP 

ZEILENNUMMER DER FOR-ANWEISUNG (LSB/MSB) 

ZEIGER AUF ANWEISUNG NACH FOR-ANWEISUNG (LSB/MSB) 

ENDMARKIERUNG FJER STACK 


STRINGSPACE 

(40A0)+1 ANFANG DER STRINGSPACE 

(40D6) LETZTES FREIE BYTE DER STRINGSPACE 

(40B1) LETZTES BYTE DAS VOM BASIC BELEGT WERDEN KANN 
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— ' -—- 

* I/O-ADRESSEN * 

**■**-*■*■•*■■*•*■*•■#■■#■*■*■•** 


P8 

P9 

PA 

PB 

PP 


I/O-PORTS 

;PSG-REGISTER PORT WAEHIT DAS ENTSPRECHENDE PSG-REG. AN 
;AUSGABE BZW. EINGABE VON WERTEN AN DEN PSG 
;CRTC-REGISTER PORT WAEHLT DAS ENTSPRECHENDE CRTC-REGISTER AN 
;AUSGABE BZW. EINGABE VON WERTEN AN DEN CRTC 
;UNIVERSELLER EIN-/AUSGABEPORT FUER SYSTEMANWENDUNGEN 
;EINGABE: 

;BIT 0 : CASSETTEN-EINGANG 

;BIT 1,2: SERIELLE EINGAENGE (CD.RXD) 

;AUSGABE: 

;BIT 0 : CASSETTEN-AUSGANG 

;BIT 1 : SERIELLER AUSGANG 

;BIT 2 : HINTERGRUND (BGRD) 

;BIT 3,4: GRAPIK ZEICHENSAETZE SCHALTEN (CHAR) 

;BIT 5 : PLOT-GRAPIK EINSCHALTEN (PGR) 

;BIT 6,7: WAEHLBARE HINTERGRUNDPARBE (RGB) 


PSG—PORT2 

PSG-PORT1 

COOO 

EPPP 


PRINTER-PORT: 

;(STANDART CENTRONIX-PARALLEL-SCHNITTSTELLE) 
;EINGABE: 

;BIT 4: PAULT 
;BIT 5: UNIT SELECT 
;BIT 6: OUT PAPER 
;BIT 7: BUSY 
jAUSGABE: 

;ZU DRUCKENDES ZEICHEN 


ROM EINSCHUBCASSETTE (CARTRIDGE) PUER DISK-BASIC 


POOO SPEICHER FUER DIE ZEICHENPARBE IM TEXTMODUS (NUR BITO-3 VERDRAHTET) 

P3PP 


F400 SPEICHER PUER DIE FREI PROGRAMMIERBAREN ZEICHEN 

F7FF 


P801 

P802 

P804 

P808 

P810 

P820 

P840 

F880 


P87F 

P8PP 

PCOO-FPPF 


TASTATURADRESSEN 
; BIT 0 1 

2 

3 

4 

5 

6 

7 

; ß 

A 

B 

C 

D 

E 

P 

G 

; H 

I 

J 

K 

L 

M 

N 

0 

; p 

Q 

R 

S 

T 

U 

V 

W 

; x 

Y 

Z 


PI 

F2 

P 3 

F4 

; o 

1 

2 

3 

4 

5 

6 

7 

; 8 

9 

: 

1 

9 



/ 

; RETURN 

CLEAR 

BREAK 

UP 

DOWN 

LEFT 

RIGHT 

; SHIFT 

MODSEL 


RPT 

CTRL 



LPEN 


BEI DIESEN ADRESSEN WIRD GENAU EINE TASTATURZEILE ABGEPRAGT, IST EINE TASTE GEDRUECKT, IST DAS 
ENTSPRECHENDE BIT GESETZT. 

ABFRAGE ALLER TASTEN (AUSSER SHIFT), NUR WENN KEIN TASTE GEDRUECKT IST, ERGIBT EINE ABFRAGE 0. 
DERGL. MIT SHIFT 

EINSCHUBKASSETTE 


FFE0-FFE3 


PPEC 


PPED 

PPEE 

PPEP 


NUR UNTER DISK-BASIC 
;EINGABE: 

;INTERRUPTSTATUS: 

;BIT 6: PDC-INTERRUPT 

;BIT 7: UNERLAUBTER INTERRUPT 

jAUSGABE: 

jDRIVESELECT UND MOTOR AN 

;BIT 0: DS 0 

;BIT 1: DS 1 

;BIT 2: DS 2 

;BIT 3: DS 3 

PDC-ADRESSEN 

jEINGABE: 

;STATUS 
;AUSGABE: 

;CMD 

jAUSGABE: 

;TRACK 
jAUSGABE: 
jSECTOR 
;EIN-/AUSGABE: 

;DATEN 
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OOOB HERE 
002B INCH 
0033 OUTCH 
003B PRINT 
0049 INCHW 
0060 DELAY 
01C9 CLS 
01D9 PULSE 
01E4 BLINK 
01 ED READB 
01EA READBI 
021C WRBTW 
02IE WRITEB 
023F WRITES 
024C READS 
0314 READW 
032A OUTCHE 
033A 0UTCH2 
0348 CURPOS 
0358 INCH2 
0361 INLINE 
0384 INCHW2 
038B RESPR 
0394 PRCR 
039C PRINT1 
03C2 CALL 
0529 PRTRDY 
05D9 INBUEF 
0708 SADD2 
070B SADDC 
0710 SSUBC 
0713 SSUBY 
0716 SADDY 
0778 RNULL 
07B7 SMADDY 
07D7 SRYR 
0809 LOG 
0841 SMLTL2 
0847 SMLTY 
0897 SDIV10 
08A2 SDIVY 
093E SMLT10 
0955 RTESTX 
0964 ELOATA 
0977 ABS 
097B NEG 
0982 RNEG 
098A SGN 
098D INTA 
0994 TESTX 
099B ITESTX 
09A4 SPUSHX 
09B1 SLDXYC 
09B4 SLDXY 
09BF SLDYX 
09C2 SLDYC 
09CB SLDCX 
09D2 MOVE 
09D3 M0YE1 
09F4 LDXY 
09FC LDYX 
0A03 POINTX 
OAOC SCPXY 
OA39 ICP 
OA49 DCPXC 
0A4F DCPXY 
0A78 DCPYX 
0A7F CINT 
0A9A ILDXHL 
0A9D TYPXI 
0AB1 CSNGX 
OACC ICSNGX 
OACF ICSNGH 
OADB CDBLX 
OAEC TYPXD 
OAEF TYPXS 
0B26 FIX 
0B37 INT 
OBAA INDEX 
0BC7 ISUB 
0BD2 IADD 
0BF2 IMLT 
0C5B INEG 
0C70 DSUB 
OC77 DADD 
OD33 DMADD 
OD45 DMSUB 
0D6A RLMA 
OD90 RRX 
0D97 RLM 
0DA1 DMLT 


für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke und Luidger 
-*****++*♦**♦***♦«- ; — ---°— 

* UNTERPROGRAMME * 

****************** 


NACH ADRESSEN SORTIERT 
ERMITTELT STAND DES PC 
TASTATURABFRAGE 

AUSGABE EINES ZEICHENS AUF DEN BILDSCHIRM 
AUSGABE EINES ZEICHENS AUF DEN DRUCKER 

TASTATURABFRAGE (WARTET BIS EINE NEUE TASTE GEDRUECKT WIRD) 
ZEITSCHLEIFE 

BILDSCHIRM WIRD GELOESCHT 

GIBT INMPULS AUF KASSETTE AUS 

SCHALTET STERN IN BILDSCHIRMECKE UM 

LIEST BYTE VON CASSETTE 

LIEST BIT VON CASSETTE 

SCHREIBT BYTE ZWEIMAL AUF CASSETTE 

SCHREIBT BYTE AUF CASSETTE 

SCHREIBT SYNCHRONBYTES (255D * 0 UND A5) 

LIEST SYNCHRONISATION 

LIEST WORT (LSB, MSB) VON CASSETTE 

GIBT ZEICHEN AUF BILDSCHIRM, PRINTER ODER CASSETTE AUS 
GIBT ZEICHEN AUF DEN BILDSCHIRM AUS 
ERMITTELT CURSORPOSITION IN DER ZEILE 
SIEHE INCH 

LIEST ZEILE VON TASTATUR IN i/O-BUFFER 
SIEHE INCHW 

AUSGABE-FLAG AUF DISPLAY UND CR AUF DRUCKER, WENN DRUCKKOPF NICHT 

CR AUF DRUCKER AUSGEBEN 

ZEICHEN AUF DRUCKER AUSGEBEN 

RUFT I/O-ROUTINEN UEBER DCB AUF 

TESTET OB DRUCKER BEREIT 

EINGABE EINER ZEILE IN DEN BUFFER 

SINGLEADDITION: Z = ZI +0.5 

SINGLEADDTION: Z = C + ZI 

SINGLESUBTRAKTION: Z = C - ZI 

SINGLESUBTRAKTION: Z = Z2 - ZI 

SINGLEADDITION: Z = Z2 + ZI 

REELLE ZAHL = 0 

SINGLEMANTISSENADDITION 

SCHIEBT SINGLEZAHL UM A BITS RECHTS 

BERECHNET NATUERLICHEN LOGARITHMUS 

SINGLEMULTIPLIKATION MIT LOG (2) 

SINGLEMULTIPLIKATION: Z = ZI * Z2 
SINGLEDIVISON DURCH 10D 
SINGLEDIVISION: Z = Z2 / ZI 
SINGLEMULTIPLIKATION MIT 10D 
TESTET REELLE ZAHL 

8-BIT-ZAHL MIT SIGN (BIT7) IN SINGLE UMWANDET,N 
ABSOLUT WERT EINER ZAHL BILDEN 
NEGATIVEN WERT EINER ZAHL BILDEN 
NEGATIVEN WERT EINER REELLEN ZAHL BILDEN 
BILDET DIE SGN-FUNKTION EINER ZAHL 
WANDELT A IN 16-BIT-INTEGER UM (MIT SIGN) 

TESTET ALLE NUMERISCHEN TYPEN 
TESTET INTEGERZAHL 
RETTET SINGLE AUF STACK 
LAEDT SINGLE-KONSTANTE 
TRANSPORTIERT SINGLE ZAHL 
TRANSPORTIERT SINGLE ZAHL 
LAEDT KONSTANTE 
SPEICHERT ZAHL ALS KONSTANTE 
TRANSPORTIERT WERT JEDEN TYP 
WIE MOVE BEI VERTAUSCHTEN ZEIGERN 
SPEICHERT WERT UM 
SPEICHERT WERT UM 

ERMITTELT X-ADRESSE IN ABHAENGIKEIT VON TYPX 
SINGLEVERGLEICH: ZI UND Z2 
INTEGERVERGLEICH: ZI UND Z2 
DOUBLEVERGLEICH ZI UND KONSTANTE 
DOUBLEVERGLEICH: ZI UND Z2 
DOUBLEVERGLEICH: ZI UND Z2 
WANDELT ZAHL IN 16-BIT INTEGER UM 
LAEDT ZAHL ALS INTEGER NACH X 
TYPX = INTEGER 


WANDELT ZAHL IN SINGLE UM 
INTEGER IN SINGLE UMWANDELN 
INTEGER IN SINGLE UMWANDELN 
ZAHL IN DOUBLE UMWANDELN 
TYPX = DOUBLE 
TYPX = SINGLE 

INT OHNE BERUECKSICHTIGUNG DES VORZEICHENS 
ERMITTELTE NAECHST KLEINERE GANZE ZAHL 
MULTIPLIKATION (EUER FELDVERWALTUNG) 
INTEGERSUBTRAKTION: Z = ZI - Z2 
INTEGERADDITION: Z = ZI + Z2 
INTEGERMULTIPLIKATION: Z = ZI * Z2 
NEGATIVEN WERT EINER INTEGERZAHL 
DOUBLESUBTRAKTION: Z — 21 - Z2 
DOUBLEADDITION: Z = ZI + Z2 
DOUBLEMANTISSENADDITION 
DOUBLEMANTISSENSUBTRAKTICN 
8 SPEICHERZELLEN RECHTS SCHIEBEN 
SPEICHERBEREICH UM 1 BIT RECHTS SCHIEBEN 
SPEICHERBEREICH UM EIN BIT LINKS SCHIEBEN 
DOUBLEMULTIPLIKATION: Z = ZI * Z2 


Röckrath 


IN POSITION 0 
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ÜDIKJ DD1V10 
ODE5 DDIV 
OE4D DMLTIO 
OE 65 DVAL 
OE6C LVAL 
OEPB CREAL 
OEOA RMLTIO 
OPI8 RDIVIO 
0P89 SADDA 
OPA7 PRZNR1 
OPAP PRZNR 
OPBD USTR 
OPBE FSTR 
1269 PILLO 
13E7 SQR 
13F2 POWER 
1439 EXP 
149A REIHEI 
14A9 REIHE2 
14C9 RND 
14PO RRND 
1541 COS 
1547 SIN 
15A8 TAN 
15BD ATN 
1AP8 LPNT 
1APC LPNTP 
1B10 LARG 
1B2C SEINE 
1BB3 INLINA 
1BCO ENCTXT 
1C90 CPHLDE 
1C96 CHECK 
1D78 CHRGET 
1E3D LETTER 
1E45 INTEXP 
1E4P DECLNO 
1P05 SEOS 
1P07 SEOL 
20P9 NEXTL 
20PE CR 
2335 EXPB 
2337 EXP 
2490 IDIV 
249P OPERND 
25D9 TYPCHK 
260D SVAR 
27P8 ILDXA 
2819 CXTYPA 
2857 STEMPS 
2865 STRC 
28A6 PRINTS 
28BP MROOM 
2B01 INTEXP 
2B1B IEXPA 
2B75 PRINTT 
2B7E GENTXT 
3047 CRTC2S 
3354 DELETB 
3375 INSERB 
3394 INTSTR 
366A JOYINP 
368P JOYOUT 
37CB STRMON 
37D1 STRPRT 
37E7 HEXODE 
37EC HEXOA 
3846 PCLS 
3870 CRTCIN 
3A5E JOYD 
3A87 KEYPAD 
3AA9 P1AP2E 
3AB3 PSGHL 
3ABB INPSG 
3B8A PLOTHL 
3C1F DETOHI 
3E2A PSGOUT 
3F3A CPOINT 


0977 ABS 
15BD ATN 
01E4 BLINK 
03C2 CALL 
OADB CDBLX 
1C96 CHECK 
1D78 CHRGET 
0A7F CINT 
01C9 CLS 
1541 COS 
1C90 CPHLDE 
3P3A CPOINT 
20PE CP 
OEPB CREAL 
3047 CRTC2S 
3870 CRTCIN 
0AB1 CSNGX 
0348 CURPOS 


für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke und Luidger Röckrath 

DÖUELED1V ID 1S1ON DURCH TOD -—- ß - 

DOUBLEDIVISION: Z = ZI / Z2 
DOUBLEMULTIPLIKATION MIT 10D 
WANDELT STRING IN ZAHL (DOUBLE) UM 
WANDELT STRING IN ZAHL PASSENDEN TYPS UM 
WANDELT ZAHL IN SINGLE ODER DOUBLE UM 
MULTIPLIZIERT REELLE ZAHL MIT 10D 
DIVIDIERT REELLE ZAHL DURCH 10D 
SUMME BILDEN 

' IN ' ZEILENNUMMER AUSGEBEN 
ZEILENNUMMER AUSGEBEN 

WANDELT ZAHL IN UNFORMATIERTEN STRING UM 

WANDELT ZAHL IN FORMATIERTEN STRING UM 

NULLEN IN BUFFER EINSCHREIBEN 

BILDET DIE WURZEL EINER ZAHL 

BERECHNET DIE POTENZ EINER ZAHL 

EXPONENTIALFUNKTION EINER ZAHL BESTIMMEN 

BERECHNET REIHE = CI * Z + C2 * Z**3 + C3 * Z**5 

BERECHNET REIHE = CI + C2 * Z + C3 * Z**2 + C4 * Z**3 

ERZEUGUNG EINER ZUPALLSZAHL 

REELLE ZUPALLSZAHL ERZEUGEN 

COSINUS-PUNKTION BERECHNEN 

SINUS-FUNKTION BERECHNEN 

TANGENS-PUNKTION BERECHNEN 

ARCUSTANGENS-FUNKTION BERECHNEN 

ZEILENZEIGER IM GANZEN PROGRAMMTEXT ERNEUERN 

ZEILENZEIGER TEILWEISE ERNEUERN 

ANALYSIERT ZWEI ARGUMENTE FUER LIST 

SUCHT ZEILE IM PROGRAMMTEXT 

GIBT '? ' AUS UND ERWACHTET EINGABE EINER ZEILE 

ERZEUGT ZWISCHENCODE 

RST 18-UP: VERGLEICHT HL UND DE 

RST 08-UP: SYNTAXCHECK 

RST 10-UP: SUCHT NAECHSTES SIGNIFIKANTES ZEICHEN UND GIBT INFORMATIONEN HEBER ES 
TESTET OB ZEICHEN EIN BUCHSTABE 

AUSDRUCK AUSWERTEN UND GANZZAHLIGEN WERT (< 32768D) ERMITTELN 
STRING IN ZAHL UMWANDELN (GANZE ZAHL < 65530D) 

SUCHT ENDE DER ANWEISUNG 
SUCHT ZEILENENDE 

CR AUSGEBEN, WEHN CUHOSR NICHT IN POSTION 0 
CR AUSGEBEN 

AUSDRUCK AUSWERTEN DER MIT KLAMMER BEGINNT 

AUSDRUCK AUSWERTEN 

INTEGERDIVISION 

OPERANDEN FUER AUSDRUCKSANALYSE AUSWERTEN 
RST 20-UP: TESTET TYP DES X-REGISTER INHALTS 

VARIABLE IN TABELLE SUCHEN UND FINRICHTEN, WENN NICHT VORHANDEN 
ZAHL ALS INTEGER (OHNE SIGN) NACH X 
WERT IN GEWUENSCHTEN TYP UMWANDELN 

ERMITTELT STRINGSPACEADRESSE UND LEGT SIE IM VORL. ZWISCHENSPEICHER AB 
STRINGKONSTANTE IN ZWISCHENSPEICHER UND X UEBERNEHMEN 
DRUCKT EINEN STRING 

PLATZ FUER STRING IN STRINGSPACE MACHEN 

AUSDRUCK AUSWERTEN UND ERGEBNIS IN INTEGER UMWANDELN 

AUSDRUCK AUSWERTEN, ERGEBNIS IN INTEGER. UMWANDELN (< 256D) 

DRUCKT TEXTSTRING 

ERZEUGT AUS ZWISCHENCODES LESBAREN TEXT 

SETZT ZWEI REGISTER DES CRT-CONTROLLERS 

ENTFERNT B BYTES AUS BASIC-TEXT 

ERZEUGT B BYTES FREISTELLEN IN BASIC-TEXT 

ERZEUGT AUS DER INTEGERZAHL HL EINEN STRING 

EINLESEN- EINES BASICPROGRAMMES UEBER DEN PARALLELPORT 

AUSGABE EINES BASICPROGRAMMS UEBER DEN PARALLELPORT 

AUSGABE EINES STRING AUF DEM MONITOR 

AUSGABE EINES STRING AUF DEM DRUCKER 

UMWANDELN DES DE-REGISTERS IN EINE HEXZAHL (ASCII) 

UMWANDELN DES AKKU IN EINE HEXZAHL (ASCII) 

LOESCHEN DES FULL-GRAFIK-BILDSCHIRMS 

INITIALISIEREN DES CRT-CONTROLLERS 

ANALOG-DIGITAL UMWANDLUNG DES ADRESSIERTEN JOYSTICK 

GIBT CODEZIFFER DER GEDRUECKTENO KEYPAD-TASTE 

SCHALTET PORTI AUF AUSGABE UND PORT2 AUF EINGABE 

GIBT AUF PSG-REGISTER H DEN WERT L AUS 

HOLT DEN WERT VON PSG-REGISTER H IN DEN AKKU 

SETZT DEN DURCH H,L BESTIMMTEN PUNKT IN DERAKTUELLEN FARBE 

ZIEHT EINE LINIE VOM PUNKT D,E ZUM PUNKT H,L IN DER AKTUELLEN FARBE 

BELEGUNG VON ZWEI PSG-REGISTERN MIT DEN WERTEN D UND E 

TESTET UND HOLT FARBCODE, DES DURCH H,L BESTIMMTEN PUNKTES 


ALPHABETISCH SORTIERT 
ABSOLUT WERT EINER ZAHL BILDEN 
ARCUSTANGENS-FUNKTION BERECHNEN 
SCHALTET STERN IN BILDSCHIRMECKE UM 
RUFT I/O-ROUTINEN UEBER DCB AUF 
ZAHL IN DOUBLE UMWANDELN 
RST 08-UP: SYNTAXCHECK 

RST 10-UP: SUCHT NAECHSTES SIGNIFIKANTES ZEICHEN UND GIBT INFORMATIONEN UEBER ES 

WANDELT ZAHL IN 16-BIT INTEGER UM 

BILDSCHIRM WIRD GELOESCHT 

COSINUS-FUNKTION BERECHNEN 

RST 18-UP: VERGLEICHT HL UND DE 

TESTET UND HOLT FARBCODE, DES DURCH H,L BESTIMMTEN PUNKTES 
CR AUSGEBEN 

WANDELT ZAHL IN SINGLE ODER DOUBLE UM 
SETZT ZWEI REGISTER DES CRT-CONTRCLLERS 
INITIALISIEREN DES CRT-CONTROLLERS 
WANDELT ZAHL IN SINGLE T 1M 
ERMITTELT CURSORPOSITION IN DER ZEILE 
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ROM-Listing 
'2819 CXTÜPÄ 
OC77 DADD 
OA49 DCPXC 
OA4P DCPXY 
0A78 DCPYX 
ODE5 DDIV 
ODDC DDIVIO 
1E4F DECLNO 
0060 DELAY 
3354 DELETB 
3C1F DETOHI, 
OD33 DMADD 
0DA1 DMLT 
0E4D DMLT 10 
OD45 DMSUB 
0C70 DSUB 
OE65 DVAL 
1BCO ENCTXT 
2337 EXP 
1439 EXP 
2335 EXPB 
3846 PCLS 
1269 EILLO 
0B26 FIX 
0964 FLOATA 
OFBE FSTR 
2B7E GENTXT 
OOOB HERE 
37EC HEXOA 
Y7E7 HEXODE 
0BD2 IADD 
0A39 ICP 
OACF ICSNGH 
OACC ICSNGX 
2490 IDIV 
2B1B IEXPA 
27F8 ILDXA 
0A9A ILDXHL 
0BF2 IMLT 
05D9 INBUFF 
002B INCH 
0358 INCH2 
0049 INCH¥ 
0384 INCHW2 
OBAA INDEX 
0C5B INEG 
1BB3 INLINA 
0361 INLINE 
3ABB INPSG 
3375 INSERB 
OB37 INT 
098D INTA 
2B01 INT'EXP 
1E45 INTEXP 
3394 INTSTR 
0BC7 ISUB 
099B ITESTX 
3A5E JOYD 
366A JOYINP 
368F JOYOUT 
3A87 KEYPAD 
1 Bl 0 LARG 
09F4 LDXY 
09FC LDYX 
1E3D LETTER 
0809 LOG 
1AF8 LPNT 
1AFC LPNTP 
0E6C LVAL 
09D2 MOVE 
09D3 M0VE1 
28BF MROOM 
097B NEG 
20F9 NEXTL 
249F OPERND 
0033 OUTCH 
033A 0UTCH2 
032A OUTCHF 
3AA9 P1AP2E 
3B8A PLOTHL 
0A03 POINTX 
13F2 POWER 
0394 PRCR 
003B PRINT 
039C PRINT1 
28A6 PRINTS 
2B75 PRINTT 
0529 PRTRDY 
OFAF PRZNR 
0FA7 PRZNR1 
3AB3 PSGHL 
3E2A PSGOUT 
01D9 PULSE 
0F18 RDIV10 
01 ED READB 
01 FA READBI 
024C READS 
0314 READW 
149A REIHEI 


für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke und Luidger Röckrath 

' WERT' T f 1 : : MUTEN ' TiP ÜMWMUELN - 

DOUBLEADDITION: Z = ZI + Z2 
DOUBLEVERGLEICH ZI UND KONSTANTE 
POUBLEVERGLEICH: ZI UND Z2 
DOUBLEVERGLEICH: ZI UND Z2 
DOUBLEDIVISION: Z = ZI / Z2 
DOUBLEDIVIDISION DURCH 10D 

STRING IN ZAHL UMWANDELN (GANZE ZAHL < 65530D) 

ZEITSCHLEIFE 

ENTFERNT B BYTES AUS BASIC-TEXT 

ZIEHT EINE LINIE VOM PUNKT D,E ZUM PUNKT H,L IN DER AKTUELLEN FARBE 

DOUBLEMANTISSENADDITION 

DOUBLEMULTIPLIKATION: Z = ZI * Z2 

DOUBLEMULTIPLIKATION MIT 10D 

DOUBLEMANTISSENSUBTRAKTION 

DOUELESUBTRAKTION: Z = ZI - Z2 

WANDELT STRING IN ZAHL (DOUBLE) UM 

ERZEUGT ZWISCHENCODE 

AUSDRUCK AUSWERTEN 

EXPONENTIALFUNKTION EINER ZAHL BESTIMMEN 
AUSDRUCK AUSWERTEN DER MIT KLAMMER BEGINNT 
LOESCHEN DES FULL-GRAFIK-BILDSCHIRMS 
NULLEN IN BUFFER EINSCHREIBEN 
INT OHNE BERUECKSICHTIGUNG DES VORZEICHENS 
8-BIT-ZAHL MIT SIGN (BIT7) IN SINGLE UMWANDELN 
WANDELT ZAHL IN FORMATIERTEN STRING UM 
ERZEUGT AUS ZWISCHENCODES LESBAREN TEXT 
ERMITTELT STAND DES PC 

UMWANDELN DES AKKU IN EINE HEXZAHL (ASCII) 

UMWANDELN DES DE-REGISTERS IN EINE HEXZAHL (ASCII) 

INTEGERADDITION: Z = ZI + Z2 
INTEGERVERGLEICH: ZI UND Z2 
INTEGER IN SINGLE UMWANDELN 
INTEGER IN SINGLE UMWANDELN 
INTEGERDIVISION 

AUSDRUCK AUSWERTEN, ERGEBNIS IN INTEGER UMWANDELN (< 256D) 

ZAHL ALS INTEGER (OHNE SIGN) NACH X 
LAEDT ZAHL ALS INTEGER NACH X 
INTEGERMULTIPLIKATION: Z = ZI * Z2 
EINGABE EINER ZEILE IN DEN BUFFER 
TASTATURABFRAGE 
SIEHE INCH 

TASTATURABFRAGE (WARTET BIS EINE NEUE TASTE GEDRUECKT WIRD) 

SIEHE INCHW 

MULTIPLIKATION (FUER FELDVERWALTUNG) 

NEGATIVEN WERT EINER INTEGERZAHL 

GIBT '? ' AUS UND ERWACHTET EINGABE EINER ZEILE 

LIEST ZEILE VON TASTATUR IN l/0-BUFFER 

HOLT DEN WERT VON PSG-REGISTER H IN DEN AKKU 

ERZEUGT B BYTES FREISTELLEN IN BASIC-TEXT 

ERMITTELTE NAECHST KLEINERE GANZE ZAHL 

WANDELT A IN 16-BIT-INTEGER UM (MIT SIGN) 

AUSDRUCK AUSWERTEN UND ERGEBNIS IN INTEGER UMWANDELN 
AUSDRUCK AUSWERTEN UND GANZZAHLIGEN WERT (< 32768D) ERMITTELN 
ERZEUGT AUS DER INTEGERZAHL HL EINEN STRING 
INTEGERSUBTRAKTION: Z = ZI - Z2 
TESTET INTEGERZAHL 

ANALOG-DIGITAL UMWANDLUNG DES ADRESSIERTEN JOYSTICK 

EINLESEN EINES BASICPROGRAMMES UEBER DEN PARALLELPORT 

AUSGABE EINES BASICPROGRAMMS UEBER DEN PARALLELPORT 

GIBT CODEZIFFER DER GEDRUECKTENO KEYPAD-TASTE 

ANALYSIERT ZWEI ARGUMENTE FUER LIST 

SPEICHERT WERT UM 

SPEICHERT WERT UM 

TESTET OB ZEICHEN EIN BUCHSTABE 

BERECHNET NATUERLICHEN LOGARITHMUS 

ZEILENZEIGER IM GANZEN PROGRAMMTEXT ERNEUERN 

ZEILENZEIGER TEILWEISE ERNEUERN 

WANDELT STRING IN ZAHL PASSENDEN TYPS UM 

TRANSPORTIERT WERT JEDEN TYP 

WIE MOVE BEI VERTAUSCHTEN ZEIGERN 

PLATZ FUER STRING IN STRINGSPACE MACHEN 

NEGATIVEN WERT EINER ZAHL BILDEN 

CR AUSGEBEN, WENN CUROSR NICHT IN POSTION 0 

OPERANDEN FUER AUSDRUCKSANALYSE AUSWERTEN 

AUSGABE EINES ZEICHENS AUF DEN BILDSCHIRM 

GIBT ZEICHEN AUF DEN BILDSCHIRM AUS 

GIBT ZEICHEN AUF BILDSCHIRM, PRINTER ODER CASSETTE AUS 

SCHALTET PORTI AUF AUSGABE UND PORT2 AUF EINGABE 

SETZT DEN DURCH H,L BESTIMMTEN PUNKT IN DERAKTU ELLEN FARBE 

ERMITTELT X-ADRESSE IN ABHAENGIKEIT VON TYPX 

BERECHNET DIE POTENZ EINER ZAHL 

CR AUE DRUCKER AUSGEBEN 

AUSGABE EINES ZEICHENS AUF DEN DRUCKER 

ZEICHEN AUF DRUCKER AUSGEBEN 

DRUCKT EINEN STRING 

DRUCKT TEXTSTRING 

TESTET OB DRUCKER BEREIT 

ZEILENNUMMER AUSGEBEN 

IN ' ZEILENNUMMER AUSGEBEN 
GIBT AUF PSG-REGISTER H DEN WERT L AUS 
BELEGUNG VON ZWEI PSG-REGISTERN MIT DEN WERTEN D UND E 
GIBT INMPULS AUF KASSETTE AUS 
DIVIDIERT REELLE ZAHL DURCH 10D 
LIEST BYTE VON CASSETTE 
LIEST BIT VON CASSETTE 
LIEST SYNCHRONISATION 
IIEST WORT (LSB, MSB) VON CASSETTE 
BERECHNET REIHE = CI * Z + C2 * Z**3 + C3 * Z**5 
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ROM-Listing 
TW~RETKEZ 
038B RESPR 
OD97 RLM 
OD6A RIMA 
OFOA RMLTIO 
14C9 RND 
0982 RNEG 
0778 KNÜLL 
14F0 RRND 
0D90 RRX 
0955 RTESTX 
0708 SADD2 
0F89 SADDA 
070B SADDC 
0716 SADDY 
OAOC SCPXY 
0897 SDIV10 
08A2 SDIVY 
1F07 SEOL 
1F05 SEOS 
098A SGN 
1547 SIN 
09CB SLDCX 
09B4 SLDXY 
09B1 SLDXYC 
0902 SLDYC 
09BP SLDYX 
1B2C SLINE 
07B7 SMADDY 
093E SMLT10 
0841 SMLTL2 
0847 SMLTY 
09A4 SPUSHX 
15E7 SQR 
07D7 SRYR 
0710 SSÜBC 
0713 SSUBY 
2857 STEMPS 
2865 STRC 
37CB STRMON 
37D1 STRPRT 
260D SVAR 
15A8 TAN 
0994 TESTX 
25D9 TYPCHK 
OAEC TYPXD 
0A9D TYPXI 
OAEE TYPXS 
OPBD USTR 
021C WRBTW 
021P WRITEB 
023P WRITES 


für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke und Luidger Röckrath 

BERECHNET 1- REIHE" =' 'CI' +' C”2 - '*' Z + 03 '* 7/+*2' + C4 * '£***> - - 

AU3GABE-PLAG AUP DISPLAY UND CR AUF DRUCKER, WENN DRÜCKKOPP NICHT IN POSITION 0 

SPEICHERBEREICH UM EIN BIT LINKS SCHIEBEN 

8 SPEICHERZELLEN RECHTS SCHIEBEN 

MULTIPLIZIERT REELLE ZAHL MIT 10D 

ERZEUGUNG EINER ZUPALLSZAHL 

NEGATIVEN WERT EINER REEL L EN ZAHL BILDEN 

REELLE ZAHL = 0 

REELLE ZUPALLSZAHL ERZEUGEN 

SPEICHERBEREICH UM 1 BIT RECHTS SCHIEBEN 

TESTET REELLE ZAHL 

SINGLEADDITION: Z = ZI + 0.5 

SUMME BILDEN 

SINGLEADDTION: Z = C + ZI 
SINGLEADDITION: Z = Z2 + ZI 
SINGLEVERGLEICH: ZI UND Z2 
SINGLEDIVISON DURCH 10D 
SINGLEDIVISION: Z = Z2 / ZI 
SUCHT ZEILENENDE 
SUCHT ENDE DER ANWEISUNG 
BILDET DIE SGN-FUNKTION EINER ZAHL 
SINUS-PUNKTION BERECHNEN 
SPEICHERT ZAHL ALS KONSTANTE 
TRANSPORTIERT SINGLE ZAHL 
LAEDT SINGLE-KONSTANTE 
LAEDT KONSTANTE 
TRANSPORTIERT SINGLE ZAHL 
SUCHT ZEILE IM PROGRAMMTEXT 
SINGLEMANTISSENADDITION 

SINGLEMULTIPLIKATION MIT 10D ’ 

SINGLEMULTIPLIKATION MIT LOG (2) 

SINGLEMULTIPLIKATION: Z = ZI * Z2 • 

RETTET SINGLE AUP STACK 
BILDET DIE WURZEL EINER ZAHL 
SCHIEBT SINGLEZAHL UM A BITS RECHTS 
SINGLESUBTRAKTION: Z = C - ZI 
SINGLESUBTRAKTION: Z = Z2 - ZI 

ERMITTELT STRINGSPACEADRESSE UND LEGT SIE IM VORL. ZWISCHENSPEICHER AB 
STRINGKONSTANTE IN ZWISCHENSPEICHER UND X UEBERNEHMEN 
AUSGABE EINES STRING AUP DEM MONITOR 
AUSGABE EINES STRING AUP DEM DRUCKER 

VARIABLE IN TABELLE SUCHEN UND EINRICHTEN, WENN NICHT VORHANDEN 

TANGENS-FUNKTION BERECHNEN 

TESTET ALLE NUMERISCHEN TYPEN 

RST 20-UP: TESTET TYP DES X-REGISTER INHALTS 

TYPX = DOUBLE 

TYPX = INTEGER 

TYPX = SINGLE 

WANDELT ZAHL IN UNFORMATIERTEN STRING UM 
SCHREIBT BYTE ZWEIMAL AUP CASSETTE 
SCHREIBT BYTE AUP CASSETTE 
SCHREIBT SYNCHRONBYTES (255D * 0 UND A5) 
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* BASICANWEISUNGEN UND -PUNKTIONEN * 
******************************-**#*** 


NACH ADRESSEN SORTIERT 

0132 CHECK-FUNKTION ERMITTELT, OB BIT IN EIER ADRESSE GESETZT IST 

0135 SET-ANWEISUNG SETZT BIT IN EIKER ADRESSE 

0138 RESET-ANWEISUNG LOESCHT BIT IN EINER ADRESSE 

019D INKEY$-FUNKTION TASTATURABPRAGE OHNE PROGRAMMSTOP 

01C9 CLS-ANWEISUNG BILDSCHIRM WIRD GELOESCHT 

01D3 RANDOM-ANWEISUNG INITIALISIERUNG DES ZUPALLSZAHLENGENERATORS 

02B2 SYSTEM-BEFEHL LIEST SYSTEM-TAPES UND STARTET SIE 

0809 LOG-PUNKTION BERECHNET NATUERLICHEN LOGARITHMUS 

0977 ABS-FUNKTION ABSOLUT WERT EINER ZAHL BILDEN 

098A SGN-PUNKTION BILDET DIE SGN-FUNKTION EINER ZAHL 

0A7F CINT-FUNKTION WANDELT ZAHL IN 16-BIT INTEGER UM 

0AB1 CSNG-FUNKTION WANDELT ZAHL IN SINGLE UM 

OADB CDBL-PUNKTION ZAHL IN DOUBLE UMWANDELN 

0B26 PIX-PUNKTION INT OHNE BERUECKSICHTIGUNG DES VORZEICHENS 

0B37 INT-FUNKTION ERMITTELTE NAECHST KLEINERE GANZE ZAHL 

13E7 SQR-FUNKTION BILDET DIE WURZEL EINER ZAHL 

1439 EXP-FUNKTION EXPONENT IALFMKT TON EINER ZAHL BESTIMMEN 

14C9 RND-FUNKTION ERZEUGUNG EINER ZUFALLSZAHL 

1541 COS-FUNKTION COSINUS-FUNKTION BERECHNEN 

1547 SIN-PUNKTION SINUS-PUNKTION BERECHNEN 

1 5 A 8 TAN-FUNKTION TANGENS-PUNKTION BERECHNEN 

15BD ATN-PUNKTION ARCUSTANGENS-FUNKTION BERECHNEN 

1B49 NEW-BEPEHL ALLES LOESCHEN (DIE STRINGSPACEDEPINITION BLEIBT ERHALTEN) 

1CA1 FOR-ANWEISUNG WIEDERHOLUNGSANWEISUNG 

1D91 RESTORE-ANWEISUNG DATAZEIGER ZURUECKSETZEN 

1DAE END-ANWEISUNG BEENDIGUNG DER PROGRAMMAUSFÜEHRUNG 

1DE4 CONT-ANWEISUNG WIEDERAUFNAHME DER PROGRAMMAUSPUEHRUNG NACH BREAK ODER ERROR 

1DP7 TRON-ANWEISUNG TRACE-FUNKTION AN 

1DP8 TROPF-ANWEISUNG TRACE-FUNKTION AUS 

1E00 DEPSTR-ANV/EISUNG STRINGVARIABLEN DEFINIEREN 

1E03 DEPINT-ANWEISUNG INTEGERVARIABLEN DEFINIEREN 

1E06 DEPSNG-ANWEISUNG SINGLEVARIABLEN DEFINIEREN 

1E09 DEFDBL-ANVffilSUNG DOUBLEVARIAELEN DEFINIEREN 

1E7A CLEAR-ANWEISUNG VARIABLEN LOESCHEN UND STRINGSPACE DEFINIEREN 

1EA3 RUN-ANWEISUNG PROGRAMM STARTEN 

1EB1 GOSUB-ANWEISUNG UNTERPRCGRAMMAUFRUF 

1EC2 GOTO-ANWEISUNG UNBEDINGTER SPRUNG 

1EDE RETURN-ANWEISUNG RUECKSPRUNG VON UNTERPROGRAMM 

1F05 DATA-ANWEISUNG SUCHT ENDE DER ANWEISUNG 

1F07 ELSE-ANWEISUNG SUCHT ZEILENENDE 

1P21 LET-ANWEISUNG WERTZUWEISUNG 

1P6C ON-ANWEISUNGEN VERZWEIGUNGS-ANWEISUNGEN 

1FAP RESUME-ANWEISUNG RUECKSPRUNG VON ERROP-TRAP 

2008 AUTO-BEFEHL AUTOMATISCHE ZEILENNUMMERIERUNG 

2039 IP-ANWEISUNG BEDINGTE ANWEISMG 

2067 LPRINT-ANWEISMG AUSGABE AUF DRUCKER 

206P PRINT-ANWEISMG AUSGABE AUF BILDSCHIRM 

219A INPUT-ANWEISMG EINGABE-ANWEISMG 

21EF READ DATEN AUS PROGRAMMTEXT LESEN 

22B6 NEXT-ANWEISUNG WIEDERHOLMGSANWEISMG BEI POR-NEXT-SCHLEIPE 

24CF ERR-PUNKTION ERGIBT DEN LETZEN FEHLERCODE 

24DD ERL-FUNKTION ERGIBT LETZTE FEHLERZEILE 

24EB VARPTR-FUNKTION ERGIBT VARIABLENADRESSE IN VARTAB 

2608 DIM-ANWEISMG FELDER EINRICHTEN 

27C9 MEM-FUNKTION ERGIBT GROESSE DES FREIEN SPEICHERS 

27D4 FRE-FUNKTION ERGIBT GROESSE DES FREIEN SPEICHERS ODER DER FREIEN STRINGSPACE 

27F5 POS-FUNKTION ERGIBT CURSORPOSITON 

27FE USR-FUNKTION RUFT MASCHINENPROGRAMME AUF 

2836 STRS-FUNKTION ZAHL IN STRING UMFORMEN 

2A03 LEN-FUNKTION ERGIBT LAENGE EINES STRINGS 

2A0F ASC-FUNKTION ERGIBT ASCII-CODE DES ERSTEN ZEICHENS EINES STRINGS 

2A1F CKR$-FUNKTION ERZEUGT 1-BYTE STRING MIT ZEICHEN DESSEN ASCII-CODE DEM ARGUMENT ENTSPRICHT 

2A2F STRINGS-FUNKTION ERZEUGT STRING AUS N GLEICHEN ZEICHEN 

2A61 LEFTS-FUNKTION LINKEN TEIL EINES STRINGS ABTRENNEN 

2A91 RIGHTS-FUNKTION TRENNT RECHTEN TEIL EINES STRINGS AB 

2A9A MIDS-FUNKTION MITTLEREN TEIL EINES STRINGS ABTRENNEN 

2AC5 VAL-FUNKTION STRING IN ZAHL UMWANDELN 

2AEF INP-FUNKTION EINGABPORT LESEN 

2AFB OUT-ANWEISMG WERT AUF AUSGABEPORT AUSGEBEN 

2B29 LLIST-BEFEHL PROGRAMMLISTING AUF DRUCKER 

2B2E LIST-BEFEHL PROGRAMMLISTING AUF BILDSCHIRM 

2BC6 DELETE-BEFEHL PROGRAMMZEILEN LOESCHEN 

2BF5 CSAVE-BEFEHL PROGRAMM AUF CASSETTE AUFZEICHNEN 

2C1F CLOAD-BEFEHL PROGRAMM VON CASSETTE LADEN 

2CAA PEEK-FUNKTION INHALT EINER SPEICHERZELLE LADEN 

2CB1 POKE-AN WEISMG WERT IN SPEICHERZELLE SCHREIBEN 

2CBD USING-ANWEISMG FORMATIERTE AUSGABE 

2E60 EDIT-BEFEHL ZEILENEDITOR FUER PROGRAMMZEILEN 

31B6 RENUM-BEFEHL PROGRAMMZEILEN UMNUMMERIEREN 

3466 FKEY-BEFEHL UMBENENNEN DER FKEY'S 

3549 VERIFY-BEFEHL VERGLEICHT PROGRAMM MIT EINEM AUF CASSETTE GESPEICHERTEN 

3U5A CALL-BEFEHL AUFRUF VON MASCHINENPROGRAMMEN 

36B3 JOYOUT-BEFEHL AUSGABE EINES BASIC-PROGRAMMES UEBER DEN PARALLELPORT 

36C5 JOYINP-BEFEHL EINLESEN EINES BASIC-PROGRAMMES UEBER DEN PAR ALT,ET, PORT 

36D3 SWAP-ANWEISUNG VERTAUSCHEN VON ZWEI VARIABLEN 

36F4 SOUND-FUNKTION ERGIBT WERT DES PSG-REGISTERS 

370A SCALE-FUNKTION ERGIBT AUGENBLICKLICHEN SCALEFAKTOR 

3SA9 FGR-BEFEHL EINSCHALTEN DES GRAFIKSCHIRMS 

38B0 LGR-BEFEHL EINSCHALTEN DES TEXTSCHIRMS 

38BB NBGRD-BEFEHL AUSSCHALTEN DER HINTERGRUNDFARBE 

38C9 COLOUR-ANWEISUNG BESTIMMT DIE FARBE IM TEXTMODUS 
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30L15 eüuLUUH-ANWEISUNG-BES 

3AOF KEYPAD-PUNKTION ERG 

3A1F JOY-PUNKTION ERG 

3API SCALE-ANWEISUNG SET 

3AF8 CIRCLE-ANWEISUNG ZEI' 

3BBE NPLOT-ANWEISUNG LOE! 

3BC1 PLOT-ANWEISUNG SET 

3C83 PCLS-ANWEISUNG LOE: 

3CD3 XSHAPE-ANWEISUNG ZEI 

3CD8 NSHAPE-ANWEISUNG LOE; 

3CDD SHAPE-ANWEISUNG ZEI 

3D61 PLAY-ANWEISUNG AUS' 

3E38 PAINT-ANWEISUNG AUS 

3P5C CPOINT-FUNKTION ERG 

3P95 SOUND-ANWEISUNG BEL 

3PA8 CHAR-ANWEISUNG AUS 

3PE4 BGRD-BEPEHL EIN 


Copyright (c) 1983' Norbert Heicke und Luidger Röckrath 


ERGIBT WERT DES ABGEPRAGTEN KEYPADS 
ERGIBT WERT DES ABGEPRAGTEN JOYSTICKS 
SETZEN DES SCALE-PAKTORS 
ZEICHNEN VON KREISEN AUP DEM GRAPIKSCHIRM 
LOESCHEN EINES PUNKTES (BZW. EINER LINIE) 

SETZEN EINES PUNKTES (BZW. EINER LINIE) 

LOESCHEN (BZW. UEBERSCHREIBEN) DES GRAPIKSCHIRMS 
ZEICHNEN DER SHAPEPIGUR MIT AENDERN DER FARBEN 
LOESCHEN DER SHAPEPIGUR 
ZEICHNEN DER SHAPEPIGUR 
AUSGABE VON TOENEN (PSG) 

AUSMALEN VON BEGRENZTEN PLAECHEN 
ERGIBT PARBCODE DES ABGEPRAGTEN PUNKTES 
BELEGEN DER PSG-REGISTER 
AUSWAHL DES ZEICHENSATZES 
EINSCHALTEN DER HINTERGRUNDFARBE 


ABS-FUNKTION 

ASC-FUNKTION 

ATN-PUNKTION 

AUTO-BEPEHL 

BGRD-BEPEHL 

CALL-BEFEHL 

CDBL-PUNKTION 

CHAR-ANWEISUNG 

CHECK-PUNKTION 

CHR$-FUNKTION 

CINT-FUNKTION 

CIRCLE-ANWEISUNG 

CLEAR-ANWEISUNG 

CLOAD-BEPEHL 

CLS-ANWEISUNG 

COLOUR-ANWEISUNG 

CONT-ANWEISUNG 

COS-PUNKTION 

CPOINT-FUNKTION 

CSAVE-BEPEHL 

CSNG-PÜNKTION 

DATA-ANWEISUNG 

DEPDBL-ANWEISUNG 

DEPINT-ANWEISUNG 

DEPSNG-ANWEISUNG 

DEPSTR-ANWEISUNG 

DELETE-BEFEHT , 

DIM-ANWEISUNG 

EDIT-BEPEHL 

ELSE-ANWEISUNG 

END-ANWEISUNG 

ERL-PUNKTION 

ERR-PUNKTION 

EXP-PUNKTION 

PCLS-ANWEISUNG 

PCOLOUR-ANWEISUNG 

PGR-BEPEHL 

PKEY-BEPEHL 

PIX-PUNKTION 

POR-ANWEISUNG 

FRE-FUNK TION 

GOSUB-ANWEISUNG 

GOTO-ANWEISUNG 

IP-ANWEISUNG 

INKEY$-PUNKTION 

INP-PUNKTION 

INPUT-ANWEISUNG 

INT-FUNKTION 

JOY-PUNKTION 

J OYINP-BEFEHL 

JOYOUT-BEPEHL 

KEYPAD-PUNKTION 

LEPT $-PUNKTION 

LEN-PUNKTION 

LET-ANWEISUNG 

LGR-BEFEHL 

LIST-BEPEHL 

LLIST-BEPEHL 

LOG-PUNKTION 

LPRINT-ANWEISUNG 

MEM-PUNKTION 

MIDS-FUNKTION 

NBGRD-BEFEHL 

NEW-BEFEHL 

NEXT-ANWEISUNG 

NPLOT-ANWEISUNG 

NSHAPE-ANWEISUNG 

ON-ANWEISUNGEN 

OUT-ANWEISUNG 

PAINT-ANWEISUNG 

PEEK-FUNKTION 

PLAY-ANWEISUNG 

PLOT-ANWEISUNG 

POKE-ANWEISUNG 

POS-FUNKTION 

PRINT-ANWEISUNG 

RANDOM-ANWEISUNG 

READ 

RENUM-BEFEHL 


ALPHABETISCH SORTIERT 

ABSOLUT WERT EINER ZAHL BILDEN 

ERGIBT ASCII-CODE DES ERSTEN ZEICHENS EINES STRINGS 
ARCUSTANGENS-FÜNKTION BERECHNEN 
AUTOMATISCHE ZEILENNUMMERIERUNG 
EINSCHALTEN DER HINTERGRUNDFARBE 
AUFRUF VON MASCHINENPROGRAMMEN 
ZAHL IN DOUBLE UMWANDELN 
G AUSWAHL DES ZEIC HEN SATZES 

N ERMITTELT, OB BIT IN EINER ADRESSE GESETZT IST 

ERZEUGT 1-BYTE STRING MIT ZEICHEN DESSEN ASCII-CODE DEM ARGUMENT ENTSPRICHT 
WANDELT ZAHL IN 16-BIT INTEGER UM 
UNG ZEICHNEN VON KREISEN AUF DEM GRAPIKSCHIRM 
NG VARIABLEN LOESCHEN UND STRINGSPACE' DEFINIEREN 

PROGRAMM VON CASSETTE LADEN 
BILDSCHIRM WIRD GELOESCHT 
UNG BESTIMMT DIE FARBE IM TEXTMODUS 

G WIEDERAUFNAHME DER PROGRAMMAUSFUEHRUNG NACH BREAK ODER ERROR 
COSINUS-FUNKTION BERECHNEN 
ON ERGIBT PARBCODE DES ABGEFRAGTEN PUNKTES 

PROGRAMM AUP CASSETTE AUFZEICHNEN 
WANDELT ZAHL IN SINGLE UM 
G SUCHT ENDE DER ANWEISUNG 

UNG DOUBLEVARIABLEN DEFINIEREN 

UNG INTEGERVARIABLEN DEFINIEREN 

UNG SINGLEVARIABLEN DEFINIEREN 

UNG STRINGVARIABLEN DEFINIEREN 

PROGRAMMZEILEN LOESCHEN 
FELDER EINRICHTEN 
ZEILENEDITOR FUER PROGRAMMZEILEN 
G SUCHT ZEILENENDE 

BEENDIGUNG DER PROGRAMMAUSFUEHRUNG 
ERGIBT LETZTE FEHLERZEILE 
ERGIBT DEN LETZEN FEHLERCODE 
EXPONENTIALFUNKTION EINER ZAHL BESTIMMEN 
G LOESCHEN (BZW. UEBERSCHREIBEN) DES GRAFIKSCHIRMS 

SUNG BESTIMMT DIE FARBE IM GRAFIKMODUS 

EINSCHALTEN DES GRAPIKSCHIRMS 
UMBENENNEN DER FKEY'S 

INT OHNE BERUECKSICHTIGUNG DES VORZEICHENS 
WIEDERHOLUNGSANWEISUNG 

ERGIBT GROESSE DES FREIEN SPEICHERS ODER DER FREIEN STRINGSPACE 
NG UNTERPROGRAMMAUFRUF 

G UNBEDINGTER SPRUNG 

BEDINGTE ANWEISUNG 

ON TASTATURABFRAGE OHNE PROGRAMMSTOP 

EINGABPORT LESEN 
NG EINGABE-ANWEISUNG 

ERMITTELTE NAECHST KLEINERE GANZE ZAHL 
ERGIBT WERT DES ABGEFRAGTEN JOYSTICKS 
1 EINLESEN EINES BASIC-PROGRAMMES UEBER DEN PAR AT,LET, PORT 

1 AUSGABE EINES BASIC-PROGRAMMES UEBER DEN PARALLELPORT 

ON ERGIBT WERT DES ABGEPRAGTEN KEYPADS 

N LINKEN TEIL EINES STRINGS ABTRENNEN 

ERGIBT LAENGE EINES STRINGS 
WERTZUWEISUNG 

EINSCHALTEN DES TEXTSCHIRMS 
PROGRAMMLISTING AUP BILDSCHIRM 
PROGRAMMLISTING AUP DRUCKER 
BERECHNET NATUERLICHEN LOGARITHMUS 
UNG AUSGABE AUP DRUCKER 

ERGIBT GROESSE DES FREIEN SPEICHERS 
MITTLEREN TEIL EINES STRINGS ABTRENNEN 
AUSSCHALTEN DER HINTERGRUNDFARBE 

ALLES LOESCHEN (DIE STRINGSPACEDEFINITION BLEIBT ERHALTEN) 

’G WIEDERHOLUNGSANWEISUNG BEI FOR-NEXT-SCHLEIFE 

NG LOESCHEN EINES PUNKTES (BZW. EINER LINIE) 

UNG LOESCHEN DER SHAPEPIGUR 

IN VERZWEIGUNGS-ANWEISUNGEN 

WERT AUP AUSGABEPORT AUSGEBEN 
NG AUSMALEN VON BEGRENZTEN PLAECHEN 

f INHALT EINER SPEICHERZELLE LADEN 

fG AUSGABE VON TOENEN (PSG) 

[G SETZEN EINES PUNKTES (BZW. EINER LINIE) 

[G WERT IN SPEICHERZELLE SCHREIBEN 

ERGIBT CURSORPOSITON 
NG AUSGABE AUP BILDSCHIRM 

UNG INITIALISIERUNG DES ZUFALLSZAHLENGENERATORS 

DATEN AUS PROGRAMMTEXT LESEN 
PROGRAMMZEILEN UMNUMMERIEREN 
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1D91 RESTORE-ANWEISUNG 
1FAF RESUME-ANWEISUNG 
1EDE RETURN-ANWEISUNG 
2A91 RIGHTS-FUNKTION 
14C9 RND-FUNKTION 
1EA3 RUN-ANWEISUNG 
3API SCALE-ANWEISUNG 
370A SCALE-PUNKTION 
0135 SET-ANWEISUNG 
098A SGN-FUNKTION 
3CDD SHAPE-ANWEISUNG 
1547 SIN-PÜNKTION 
3P95 SOUND-ANWEISUNG 
36P4 SOUND-PUNKTION 
13E7 SQR-FUNKTION 
2836 STR$-PUNKTI0N 
2A2P STRINGS-FUNKTION 
36D3 SWAP-ANWEISUNG 
02B2 SYSTEM-BEFEHL 
15A8 TAN-PUNKTION 
1DP8 TROFF-ANWEISUNG 
1DF7 TRON-ANWEISUNG 
2CBD USING-ANWEISUNG 
27FE USR-FUNKTION 
2AC5 VAL-FUNKTION 
24EB VARPTR-FUNKTION 
3549 VERIFY-BEFEHL 
3CD3 XSHAPE-ANWEISUNG 


DATAZEIGER ZURUECKSETZEN 

RUECKSPRUNG VON ERROR-TRAP 

RUECKSPRUNG VON UNTERPROGRAMM 

TRENNT RECHTEN TEIL EINES STRINGS AB 

ERZEUGUNG EINER ZUFALLSZAHL 

PROGRAMM STARTEN 

SETZEN DES SCALE-FAKTORS 

ERGIBT AUGENBLICKLICHEN SCALEFAKTOR 

SETZT BIT IN EINER ADRESSE 

BILDET DIE SGN-FUNKTION EINER ZAHL 

ZEICHNEN DER SHAPEFIGUR 

SINUS-FUNKTION BERECHNEN 

BELEGEN DER PSG-REGISTER 

ERGIBT WERT DES PSG-REGISTERS 

BILDET DIE WURZEL EINER ZAHL 

ZAHL IN STRING UMFORMEN 

ERZEUGT STRING AUS N GLEICHEN ZEICHEN 

VERTAUSCHEN VON ZWEI VARIABLEN 

LIEST SYSTEM-TAPES UND STARTET SIE 

TANGENS-FUNKTION BERECHNEN 

TRACE-FUNKTION AUS 

TRACE-FUNKTION AN 

FORMATIERTE AUSGABE 

RUFT MASCHINENPROGRAMME AUF 

STRING IN ZAHL UMWANDELN 

ERGIBT VARIABLENADRESSE IN VARTAB 

VERGLEICHT PROGRAMM MIT EINEM AUF CASSETTE GESPEICHERTEN 
ZEICHNEN DER SHAPEFIGUR MIT AENDERN DER FARBEN 



" ROM-Listing für COLOUR-GENIE Copyright (C) 1983: Norbert Heicke und Luidger Röckrath 

“ wnnnnnnnnnnpwmnMnnnNnnnnnnnnnnnnnnnr — 


* AUFZEICHNUNGSFORMATE AUF CASSETTE * 
*****■**-*****■*****************■***■*•*•*•*••* 


DIE AUFZEICHNUNG DER PROGRAMME UND DATEN ERFOLGT NACH DEM BIPHASE-M-VERFAHREN. DATEN- UND TAKTBITS WERDEN IN FORM VON 
FLUSSWECHSELN (AENDERUNG DER MAGNETISIERUNGSRICHTUNG) AUFGEZEICHNET.FOLGT AUF EINEN TAKT- (FLUSSWECHSEL) EIN WEITERER 
JEDES, SO IST DAS BIT 1 SONST 0. 

1 BYTE WIRD BIT-SERIELL BEGINNEND MIT DEM HOECHSTWERTIGSTEN BIT AUF CASSETTE AUFGEZEICHNET. 


SYSTEMFILES: 

VORSPANN (255D MAL AA) 

SYNCHRONISATION (66) 

FILENAMEBLOCK: FILENAMEHEADER (55) 

6 BYTES FILENAME 
N DATENBLOECKE: DATAHEADER (3C) 

BLOCKLAENGE (1-256D, 0 ENTSPRICHT 256D) 

BLOCKANFANGSADRESSE (LSB/MSB) 

DATENBYTES 

R-BIT-PRUEFSUMME UEBER BLOCKANFANGSADRESSE UND ALLE DATENBYTES 
ENTRYPOINTBLOCK: ENTRYPOINTHEADERCODE (78) 

ENTRYPOINT (LSB/MSB) 

(VOR JEDEM BLOCK KOENNEN BELIEBIG VIELE BYTES EINGEFUEGT WERDEN, DIE BEIM LESEN IGNORIERT WERDEN.) 


EASICFILES: 

VORSPANN (255D MAL AA) 

SYNCHRONISATION (66) 

FILENAME (1 BYTE) 

BASICPROGRAMM (WIE IM SPEICHER, EINSCHLIESSLICH OOOO-ZEILENZEIGER) 


TOKEN-LISTE 


HEX 

DEZ 

BEZ 

HEX 

DEZ 

BEZ 

HEX 

DEZ 

BEZ 

HEX 

DEZ 

BEZ 

80 

1 28 

END 


90 

144 

RESTORE 

AO 

1 60 

OUT 


BO 

1 76 

DEF 

81 

1 29 

FOR 


91 

1 45 

GOSUB 

AI 

1 61 

ON 


Bl 

1 77 

POKE 

82 

130 

RESET 


92 

146 

RETURN 

A2 

1 62 

OPEN 


B2 

1 78 

PRINT 

83 

1 31 

SET 


93 

1 47 

REM 

A3 

1 63 

FIELD 


B3 

1 79 

CONT 

84 

1 32 

CL5 


94 

1 48 

STOP 

A4 

1 64 

GET 


B4 

1 80 

LIST 

85 

1 33 

CMD 


95 

1 49 

ELSE 

A5 

1 65 

PUT 


B5 

1 81 

LLIST 

86 

134 

RANDOM 

96 

1 50 

TRON 

A6 

1 66 

CLOSE 


B6 

1 82 

DELETE 

87 

1 35 

NEXT 


97 

1 51 

TROFF 

A7 

1 67 

LOAD 


B7 

1 83 

AUTO 

88 

1 36 

DATA 


98 

1 52 

DEFSTR 

A8 

168 

MERGE 


B8 

1 84 

CLEAR 

89 

1 37 

INPUT 


99 

1 53 

DEFINT 

A9 

1 69 

NAME 


B9 

1 85 

CLOAD 

8A 

1 38 

DIN 


9 A 

1 54 

DEFSNG 

AA 

170 

KILL 


BA 

1 86 

CSAVE 

8B 

1 39 

READ 


9B 

1 55 

DEFDBL 

AB 

1 71 

LSET 


BB 

1 87 

NEW 

8C 

140 

LET 


9C 

1 56 

LINE 

AC 

1 72 

RSET 


BC 

1 88 

T AB ( 

80 

1 41 

GOTO 


9D 

1 57 

EDIT 

AD 

173 

SAVE 


BD 

1 89 

TO 

8E 

1 42 

RUN 


9E 

1 58 

ERROR 

AE 

1 74 

SYSTEM 

BE 

1 90 

FN 

BF 

1 43 

IF 


9F 

1 59 

RESUME 

AF 

1 75 

LPRINT 

BF 

1 91 

USING 

CO 

1 92 

VARPTR 

DO 

208 

/ 

EO 

224 

EXP 


FO 

240 

CS NG 

CI 

1 93 

USR 


Dl 

209 

Ä C 

El 

225 

COS 


Fl 

241 

CDBL 

C2 

1 94 

ERL 


D2 

21 0 

AND 

E2 

226 

SIN 


F 2 

242 

FIX 

C3 

1 95 

ERR 


D3 

211 

OR 

E3 

227 

TAN 


F 3 

243 

LEN 

C 4 

1 96 

STRING$ 

D4 

21 2 

> 

E4 

228 

ATN 


F 4 

244 

STR$ 

C5 

1 97 

INSTR 


D5 

213 

= 

E5 

229 

PEEK 


F 5 

245 

VAL 

C6 

1 98 

CHECK 


D6 

214 

< 

E6 

230 

CVI 


F 6 

246 

ASC 

C7 

1 99 

TIMES 


D7 

215 

SGN 

E7 

231 

CVS 


F7 

247 

CHR$ 

C8 

200 

MEM 


D8 

21 6 

INT 

E8 

232 

CVD 


F 8 

248 

LEFTS 

C9 

201 

INKEYS 

D9 

21 7 

ABS 

E9 

233 

EOF 


F 9 

249 

RIGHTS 

CA 

202 

LEN 


DA 

21 8 

FRE 

EA 

234 

LOC 


FA 

250 

MID$ 

CB 

203 

NOT 


DB 

219 

I NP 

EB 

235 

LOF 


FB 

251 

i 

CD 

204 

STEP 


DC 

220 

POS 

EC 

236 

MKI$ 


FC 

252 


CD 

205 

+ 


DD 

221 

SQR 

ED 

237 

MKS$ 


FD 

253 


CE 

206 

- 


DE 

222 

RND 

EE 

238 

MKDS 


FE 

254 


CF 

207 



DF 

223 

LOG 

EF 

239 

CINT 


FF 

255 


DOPPELTOKEN 












HEX HEX DEZ 

DEZ 

BEZ 


HEX HE 

X DEZ 

DEZ 

BEZ 


FF 

80 

255 

1 28 

COLOUR 


FF 

90 

255 

1 44 

NPLOT 


FF 

81 

255 

1 29 

FCOLOUR 

FF 

91 

255 

1 45 

SOUND 


FF 

82 

255 

1 30 

KEYPAD 


FF 

92 

255 

1 46 

CHAR 


FF 

83 

255 

1 31 

JOY 


FF 

93 

255 

1 47 

RENUM 


FF 

84 

255 

1 32 

PLOT 


FF 

94 

255 

1 48 

SWAP 


FF 

85 

255 

1 33 

FGR 


FF 

95 

255 

1 49 

FKEY 


FF 

86 

255 

1 34 

LGR 


FF 

96 

255 

1 50 

CALL 


FF 

87 

255 

1 35 

FCL5 


FF 

97 

255 

1 51 

VERIFY 


FF 

88 

255 

1 36 

PLAY 


FF 

98 

255 

1 52 

BGRD 


FF 

89 

255 

1 37 

CIRCLE 


FF 

99 

255 

1 53 

NBGRD 


FF 

8 A 

255 

1 38 

SCALE 









FF 

8B 

255 

1 39 

SHAPE 









FF 

8C 

255 

1 40 

NSHAPE 









FF 

8D 

255 

1 41 

XSHAPE 









FF 

8E 

255 

1 42 

PAINT 









FF 

8F 

255 

1 43 

CPOINT 
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ASCII CODE-TABELLE 


hex 

dez. 

ASCII 

hex 

dez. 

ASCII 

hex 

dez . 

ASCII 

hex 

dez . 

ASCII 

00 

0 

NÜL 

20 

32 

SPACE 

40 

64 

§ @ 

60 

96 

i 

01 

1 

SOH 

21 

33 

j 

41 

65 

A 

61 

97 

a 

02 

2 

STX 

22 

34 

ti 

42 

66 

B 

62 

98 

b 

03 

3 

ETX 

23 

35 

# 

43 

67 

C 

63 

99 

c 

04 

4 

EOT 

24 

36 

$ 

44 

68 

D 

64 

1 00 

d 

05 

5 

ENQ 

25 

37 

% 

45 

69 

E 

65 

1 01 

e 

06 

6 

ACK 

26 

38 

& 

46 

70 

F 

66 

1 02 

f 

07 

7 

BEL 

27 

39 

i 

47 

71 

G 

67 

1 03 

9 

08 

8 

BS 

28 

40 

( 

48 

72 

H 

68 

1 04 

h 

09 

9 

HT 

29 

41 

) 

49 

73 

I 

69 

1 05 

i 

OA 

1 0 

LF 

2 A 

42 

* 

4 A 

74 

J 

6 A 

1 06 

j 

OB 

1 1 

VT 

2B 

43 

+ 

4B 

75 

K 

6B 

1 07 

k 

OC 

1 2 

FF 

2C 

44 

f 

4C 

76 

L 

6C 

1 08 

1 

00 

1 3 

CR 

2D 

45 

- 

4D 

77 

M 

6D 

1 09 

m 

OE 

1 4 

SO 

2E 

46 

• 

4E 

78 

N 

6E 

1 1 0 

n 

OF 

1 5 

51 

2F 

47 

/ 

4F 

79 

0 

6F 

1 1 1 

0 

1 0 

1 6 

DLE 

30 

48 

0 

50 

80 

P 

70 

1 1 2 

P 

1 1 

1 7 

DC1 

31 

49 

1 

51 

81 

Q 

71 

1 1 3 

q 

1 2 

1 8 

DC2 

32 

50 

2 

52 

82 

R 

72 

1 1 4 

r 

1 3 

1 9 

DC3 

33 

51 

3 

53 

83 

S 

73 

1 1 5 

s 

1 4 

20 

DC4 

34 

52 

4 

54 

84 

T 

74 

1 1 6 

t 

1 5 

21 

NAK 

35 

53 

5 

55 

85 

U 

75 

1 1 7 

u 

1 6 

22 

SYN 

36 

54 

6 

56 

86 

\I 

76 

1 1 8 

\j 

1 7 

23 

ETB 

37 

55 

7 

57 

87 

ÜJ 

77 

1 1 9 

w 

1 8 

24 

CAN 

38 

56 

8 

58 

88 

X 

78 

1 20 

X 

1 9 

25 

En 

39 

57 

9 

59 

89 

Y 

79 

1 21 

y 

1 A 

26 

SUB 

3 A 

58 

! 

5 A 

90 

Z 

7 A 

1 22 

z 

1 B 

27 

ESC 

3B 

59 

9 

5B 

91 

K C 

7B 

1 23 

ä { 

1 C 

28 

FS 

3C 

60 

< 

5C 

92 

ö \ 

7C 

1 24 

ö 1 

1 D 

29 

GS 

3D 

61 

= 

5D 

93 

u 1 

7D 

1 25 

u > 

IE 

30 

RS 

3E 

62 

> 

5E 

94 

0 f 

7E 

1 26 

ß 

1 F 

31 

US 

3F 

63 

? 

5F 

95 

- 

7F 

1 27 

DEL 
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